* 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 (file)
--- 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 (file)
--- 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)))