[gnus git] branch master updated: n0-13-67-ge39a27f =1= Bind message-options when composing MIME messages.

       via  e39a27f6eef87cbbcf501b122eabcce9455f2e7a (commit)
      from  5d27dd6484d1c20d7f8c22d15c84423ff74594f2 (commit)


- Log -----------------------------------------------------------------
commit e39a27f6eef87cbbcf501b122eabcce9455f2e7a
Author: Daiki Ueno <[email protected]>
Date:   Fri Mar 4 10:24:03 2011 +0900

    Bind message-options when composing MIME messages.
    
    * mml.el (mml-generate-mime): Bind `message-options', which is now
    buffer-local, around `mm-with-multibyte-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0df7629..3009a78 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-04  Daiki Ueno  <[email protected]>
+
+	* mml.el (mml-generate-mime): Bind `message-options', which is now
+	buffer-local, around `mm-with-multibyte-buffer'.
+
 2011-03-03  Tassilo Horn  <[email protected]>
 
 	* nnimap.el (nnimap-parse-flags): Add a workaround for FETCH lines with
diff --git a/lisp/mml.el b/lisp/mml.el
index 8b196fa..2f4417f 100644
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -461,11 +461,13 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 (defvar mml-boundary nil)
 (defvar mml-base-boundary "-=-=")
 (defvar mml-multipart-number 0)
+(defvar message-options)
 
 (defun mml-generate-mime ()
   "Generate a MIME message based on the current MML document."
   (let ((cont (mml-parse))
-	(mml-multipart-number mml-multipart-number))
+	(mml-multipart-number mml-multipart-number)
+	(message-options (if (boundp 'message-options) message-options)))
     (if (not cont)
 	nil
       (mm-with-multibyte-buffer

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/mml.el    |    4 +++-
 2 files changed, 8 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project