mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Katsumi Yamaoka 2010-10-22 04:30:27 +00:00
parent f9bbc77a40
commit 48c9482c11
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/mml.el
View File

@ -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