Mercurial > emacs

changeset 111093:d80a6f7f8b4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mml.el (mml-preview): Fix last change.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 22 Oct 2010 04:30:27 +0000
parents c8d6ec9d7037
children 0c681b288c59
files lisp/gnus/mml.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mml.el	Fri Oct 22 04:15:14 2010 +0000
+++ b/lisp/gnus/mml.el	Fri Oct 22 04:30:27 2010 +0000
@@ -1494,12 +1494,11 @@
 	 (copy-sequence (if (message-news-p)
 			    message-required-news-headers
 			  message-required-mail-headers)))
-	(if (and (not article-editing)
-		 (re-search-forward
-		  (concat "^" (regexp-quote mail-header-separator) "\n")
-		  nil t))
-	    (replace-match "\n"))
-	(setq mail-header-separator "")
+	(unless article-editing
+	  (if (re-search-forward
+	       (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
+	      (replace-match "\n"))
+	  (setq mail-header-separator ""))
 	(message-sort-headers)
 	(mml-to-mime))
       (if raw