From f0a9dee778a08283d067642278144fe01ee62d45 Mon Sep 17 00:00:00 2001 From: Christopher Schmidt Date: Wed, 30 Jan 2013 10:43:40 +0000 Subject: [PATCH] lisp/gnus/mml.el (mml-insert-part): Insert closing tag --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/mml.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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 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" -- 2.39.2