(mml-insert-mime): Quote mml.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bcef991..476e748 100644 (file)
--- 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 1887754..e2b3d00 100644 (file)
--- 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")))))