[Emacs-diffs] /srv/bzr/emacs/trunk r102046: mml.el (mml-preview): Fix last change.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102046
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-10-22 04:30:27 +0000
message:
  mml.el (mml-preview): Fix last change.
modified:
  lisp/gnus/mml.el

=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el  2010-10-22 04:15:14 +0000
+++ b/lisp/gnus/mml.el  2010-10-22 04:30:27 +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