From: Christopher Schmidt <christopher@ch.ristopher.com>
Date: Wed, 30 Jan 2013 10:43:40 +0000 (+0000)
Subject: lisp/gnus/mml.el (mml-insert-part): Insert closing tag
X-Git-Tag: emacs-24.3.90~173^2~7^2~197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0a9dee778a08283d067642278144fe01ee62d45;p=emacs.git

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f224752a334..ebfc31fd91d 100644
--- 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 453086f4c20..3c9344a62c3 100644
--- 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"