From c23035e6d350163d096b45ce17221d034608c8c4 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 7 Nov 2001 11:48:22 +0000 Subject: [PATCH] 2001-11-07 ShengHuo ZHU * mml.el (mml-preview): Bind mail-header-separator. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/mml.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1bdb9103b46..866e7782ca7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2001-11-07 ShengHuo ZHU + + * mml.el (mml-preview): Bind mail-header-separator. + 2001-11-05 ShengHuo ZHU * mml.el (mml-generate-mime-1): Use mm-with-unibyte-current-buffer. diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index b3061239e6d..d2beef9fa50 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -841,7 +841,8 @@ If RAW, don't highlight the article." (if (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n") nil t) (replace-match "\n")) - (mml-to-mime) + (let ((mail-header-separator "")) ;; mail-header-separator is removed. + (mml-to-mime)) (if raw (when (fboundp 'set-buffer-multibyte) (let ((s (buffer-string))) -- 2.39.5