From 48c9482c111b767915f47e398bc7c69dc7d20c57 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 22 Oct 2010 04:30:27 +0000 Subject: [PATCH] mml.el (mml-preview): Fix last change. --- lisp/gnus/mml.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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