projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1f1a7fd
)
Synch to No Gnus 200504190623.
author
yamaoka
<yamaoka>
Tue, 19 Apr 2005 06:24:02 +0000
(06:24 +0000)
committer
yamaoka
<yamaoka>
Tue, 19 Apr 2005 06:24:02 +0000
(06:24 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/mml.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
2ad9129
..
ffa420a
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.
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
(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))
(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 ()
(pop-to-buffer mml-preview-buffer)))
(defun mml-validate ()