Re: [gnus git] branch master updated: n0-13-65-gece58ab =2= Autoload `password-in-cache-p'. ; Try to fix XEmacs message-options buffer-local issue.

[Daiki Ueno <ueno@unixuser.org>]

[-- Attachment #1: Type: text/plain, Size: 756 bytes --]

Julien Danjou <julien@danjou.info> writes:

> On Thu, Mar 03 2011, Ted Zlatanov wrote:
>
>> OK, I don't know that code so it's entirely possible I did something
>> stupid.  I was just duplicating the behavior from before your change
>> (which Michael Piotrowski identified as the culprit) for XEmacs.  Let's
>> just keep XEmacs users functional, otherwise feel free to make any
>> changes you think necessary.
>
> Just fixed your commit. Until someone really fixes that.

Hm, I don't see the fix in the git.gnus.org - did you pushed it? :)

In fact, I didn't notice that the previous work around (commit by Ted)
was there and if I revert it I can finally reproduce the problem.  I
wonder why this is not the case with GNU Emacs, but anyway here is a fix:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-mml-generate-mime-Inherit-message-options-after-mm-w.patch --]
[-- Type: text/x-diff, Size: 997 bytes --]

From e3686735b34b4cfcf4752e84a24fe3ef33d8aeec Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Thu, 3 Mar 2011 20:50:54 +0900
Subject: [PATCH] (mml-generate-mime): Inherit message-options after mm-with-multibyte-buffer.

---
 lisp/mml.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

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
-- 
1.7.2.3


[-- Attachment #3: Type: text/plain, Size: 25 bytes --]


Regards,
-- 
Daiki Ueno