(mml-preview): Bind gnus-message-buffer while setting the window layout.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f9cdaf4..344be57 100644 (file)
--- 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 b016845..80bb833 100644 (file)
--- 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 ()