[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111626: lisp/gnus/mml.el (mml-insert
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111626: lisp/gnus/mml.el (mml-insert-part): Insert closing tag |
Date: |
Wed, 30 Jan 2013 10:43:40 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111626
author: Christopher Schmidt <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-01-30 10:43:40 +0000
message:
lisp/gnus/mml.el (mml-insert-part): Insert closing tag
modified:
lisp/gnus/ChangeLog
lisp/gnus/mml.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2013-01-30 09:44:46 +0000
+++ b/lisp/gnus/ChangeLog 2013-01-30 10:43:40 +0000
@@ -1,5 +1,7 @@
2013-01-30 Christopher Schmidt <address@hidden>
+ * 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 <address@hidden>
=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el 2013-01-01 09:11:05 +0000
+++ b/lisp/gnus/mml.el 2013-01-30 10:43:40 +0000
@@ -1440,7 +1440,9 @@
;; 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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111626: lisp/gnus/mml.el (mml-insert-part): Insert closing tag,
Katsumi Yamaoka <=