From: yamaoka <yamaoka>
Date: Sun, 19 Oct 2003 13:08:09 +0000 (+0000)
Subject: Synch to Gnus 200310191122.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=14945cae9e3c2d781231f62ca7a939fe3b535322;p=elisp%2Fgnus.git-

Synch to Gnus 200310191122.
---

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  <larsi@gnus.org>
+
+	* mml.el (mml-insert-mime): Quote mml.
+
 2003-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* 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")))))