summaryrefslogtreecommitdiff
path: root/lisp/gnus
diff options
context:
space:
mode:
authorChristopher Schmidt <christopher@ch.ristopher.com>2013-01-30 10:43:40 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2013-01-30 10:43:40 +0000
commitf0a9dee778a08283d067642278144fe01ee62d45 (patch)
treef6cf3bb45dc125e14718d2d9bc95b248bbe18367 /lisp/gnus
parentdc39b96aae823fc9ee3d4dd50ce4160f00e504f2 (diff)
downloademacs-f0a9dee778a08283d067642278144fe01ee62d45.tar.gz
lisp/gnus/mml.el (mml-insert-part): Insert closing tag
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/ChangeLog2
-rw-r--r--lisp/gnus/mml.el4
2 files changed, 5 insertions, 1 deletions
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"