# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1287721827 0
# Node ID d80a6f7f8b4af9cf3850535de185ea79fc9d25a9
# Parent  c8d6ec9d7037ada89425e0cfc689168870b42d6e
mml.el (mml-preview): Fix last change.

diff -r c8d6ec9d7037 -r d80a6f7f8b4a lisp/gnus/mml.el
--- 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