diff options
| author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-11-06 04:28:29 +0000 |
|---|---|---|
| committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-11-06 04:28:29 +0000 |
| commit | 76fd45b3525469ba023ea3dff2724e36d3e5a8ce (patch) | |
| tree | 6a4dfd44b2bb326b31079ea86569a15257528dc9 /lisp/gnus | |
| parent | 0e6f60288f0c179e2200b63a6388fa912384dcdc (diff) | |
| download | emacs-76fd45b3525469ba023ea3dff2724e36d3e5a8ce.tar.gz | |
2001-11-05 ShengHuo ZHU <zsh@cs.rochester.edu>
* mml.el (mml-generate-mime-1): Use mm-with-unibyte-current-buffer.
Suggested by Dave Love <fx@gnu.org>.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <zsh@cs.rochester.edu> + + * mml.el (mml-generate-mime-1): Use mm-with-unibyte-current-buffer. + Suggested by Dave Love <fx@gnu.org>. + 2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu> * 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 |