From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 22 Oct 2010 04:30:27 +0000 (+0000)
Subject: mml.el (mml-preview): Fix last change.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~518
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48c9482c111b767915f47e398bc7c69dc7d20c57;p=emacs.git

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

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 0ef64f2746f..7314675e6f8 100644
--- 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