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

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 0ef64f2746f588e37c4dec82248e967f334ea5f9..7314675e6f8162baa7d034f68cefbead0da0624b 100644 (file)
--- 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