From: yoichi <yoichi>
Date: Sat, 31 Jul 2004 17:35:44 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-set-message-buffer-or-redisplay): Set
X-Git-Tag: wl-2_11_31~52
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2133e323ad336d7b2d74f7c9d9a5a3ca239d8b96;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-set-message-buffer-or-redisplay): Set
wl-current-summary-buffer.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 194dae1..9f5fa58 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-01  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-set-message-buffer-or-redisplay): Set
+	wl-current-summary-buffer.
+
 2004-07-29  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-action.el (wl-summary-exec): Fix the bug whereby a non null
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 72592a5..bafabd9 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3746,6 +3746,7 @@ Return t if message exists."
 	cur-folder cur-number message-last-pos)
     (when (buffer-live-p wl-message-buffer)
       (save-window-excursion
+	(setq wl-current-summary-buffer (current-buffer))
 	(wl-message-select-buffer wl-message-buffer)
 	(setq cur-folder wl-message-buffer-cur-folder)
 	(setq cur-number wl-message-buffer-cur-number)))