mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

2001-11-05 ShengHuo ZHU <zsh@cs.rochester.edu>

Browse Source 
* mml.el (mml-generate-mime-1): Use mm-with-unibyte-current-buffer.
	Suggested by  Dave Love  <fx@gnu.org>.
This commit is contained in:
ShengHuo ZHU 2001-11-06 04:28:29 +00:00
parent 0e6f60288f
commit 76fd45b352
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

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

13
lisp/gnus/mml.el
View File

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