From 76fd45b3525469ba023ea3dff2724e36d3e5a8ce Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Tue, 6 Nov 2001 04:28:29 +0000 Subject: [PATCH] 2001-11-05 ShengHuo ZHU * mml.el (mml-generate-mime-1): Use mm-with-unibyte-current-buffer. Suggested by Dave Love . --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mml.el | 13 +++++++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9cef3e87de2..1bdb9103b46 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2001-11-05 ShengHuo ZHU + + * mml.el (mml-generate-mime-1): Use mm-with-unibyte-current-buffer. + Suggested by Dave Love . + 2001-11-01 ShengHuo ZHU * mm-util.el (mm-charset-synonym-alist): Revert (some). diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 87aff3e125c..0bfe652c0c1 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -305,6 +305,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (setq type (or (cdr (assq 'type cont)) "text/plain")) (if (and (not raw) (member (car (split-string type "/")) '("text" "message"))) + (progn (with-temp-buffer (cond ((cdr (assq 'buffer cont)) @@ -342,6 +343,9 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (setq encoding (mm-body-encoding charset (cdr (assq 'encoding cont)))))) (setq coded (buffer-string))) + (mml-insert-mime-headers cont type charset encoding) + (insert "\n") + (insert coded)) (mm-with-unibyte-buffer (cond ((cdr (assq 'buffer cont)) @@ -353,10 +357,11 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." (t (insert (cdr (assq 'contents cont))))) (setq encoding (mm-encode-buffer type) - coded (buffer-string)))) - (mml-insert-mime-headers cont type charset encoding) - (insert "\n") - (insert coded))) + coded (buffer-string))) + (mml-insert-mime-headers cont type charset encoding) + (insert "\n") + (mm-with-unibyte-current-buffer + (insert coded))))) ((eq (car cont) 'external) (insert "Content-Type: message/external-body") (let ((parameters (mml-parameter-string -- 2.39.2