From 14945cae9e3c2d781231f62ca7a939fe3b535322 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 19 Oct 2003 13:08:09 +0000 Subject: [PATCH] Synch to Gnus 200310191122. --- lisp/ChangeLog | 4 ++++ lisp/mml.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bcef991..476e748 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-10-19 Lars Magne Ingebrigtsen + + * mml.el (mml-insert-mime): Quote mml. + 2003-10-19 Katsumi Yamaoka * gnus-sum.el (gnus-remove-odd-characters): Use diff --git a/lisp/mml.el b/lisp/mml.el index bf992ca..aec7b0c 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -755,10 +755,12 @@ If HANDLES is non-nil, use it instead reparsing the buffer." (insert "<#/multipart>\n")) (textp (let ((charset (mail-content-type-get - (mm-handle-type handle) 'charset))) + (mm-handle-type handle) 'charset)) + (start (point))) (if (eq charset 'gnus-decoded) (mm-insert-part handle) - (insert (mm-decode-string (mm-get-part handle) charset)))) + (insert (mm-decode-string (mm-get-part handle) charset))) + (mml-quote-region start (point))) (goto-char (point-max))) (t (insert "<#/part>\n"))))) -- 1.7.10.4