mml.el (mml-preview): Fix last change.

48c9482c · Katsumi Yamaoka · f9bbc77a · 48c9482c
Commit 48c9482c authored Oct 22, 2010 by Katsumi Yamaoka
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 6 deletions

lisp/gnus/mml.el lisp/gnus/mml.el +5 -6

No files found.
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1494,12 +1494,11 @@ or the `pop-to-buffer' function."
 	 (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