lisp/gnus/mml.el (mml-insert-part): Insert closing tag

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f224752a33471a5a284a551102238d09d4d4d7ea..ebfc31fd91d608313ca95088b1fa78c32660c801 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2013-01-30  Christopher Schmidt  <christopher@ch.ristopher.com>
 
+       * mml.el (mml-insert-part): Insert closing tag.
+
        * mm-decode.el (mm-save-part): Handle invalid read-file-name results.
 
 2013-01-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 453086f4c20d8daa5edf7e8cf0b40f22f07e7b9c..3c9344a62c3412ae90644400c451c73293cae525 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1440,7 +1440,9 @@ TYPE is the MIME type to use."
   ;; when you send the message.
   (or (eq mail-user-agent 'message-user-agent)
       (setq mail-encode-mml t))
-  (mml-insert-tag 'part 'type type 'disposition "inline"))
+  (mml-insert-tag 'part 'type type 'disposition "inline")
+  (save-excursion
+    (mml-insert-tag '/part)))
 
 (declare-function message-subscribed-p "message" ())
 (declare-function message-make-mail-followup-to "message"