From: yamaoka <yamaoka>
Date: Tue, 19 Apr 2005 06:24:02 +0000 (+0000)
Subject: Synch to No Gnus 200504190623.
X-Git-Tag: t-gnus-6_17_4-quimby-~503
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d6f653286ea8da94bf2c81308ece7d51b115c981;p=elisp%2Fgnus.git-

Synch to No Gnus 200504190623.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ad9129..ffa420a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mml.el (mml-preview): Bind gnus-message-buffer while setting the
+	window layout.
+
 2005-04-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mml.el: Autoload dnd when compiling.
diff --git a/lisp/mml.el b/lisp/mml.el
index 52e845f..b4e0ca3 100644
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1169,7 +1169,8 @@ If RAW, don't highlight the article."
       (goto-char (point-min))))
   (if (and (boundp 'gnus-buffer-configuration)
 	   (assq 'mml-preview gnus-buffer-configuration))
-      (gnus-configure-windows 'mml-preview)
+      (let ((gnus-message-buffer (current-buffer)))
+	(gnus-configure-windows 'mml-preview))
     (pop-to-buffer mml-preview-buffer)))
 
 (defun mml-validate ()