* wl-folder.el (wl-folder-jump-to-next-summary): If the window of

summary buffer is present, use it.
(wl-folder-jump-to-previous-summary): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6c1b1f8..8a13f92 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-15  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-folder.el (wl-folder-jump-to-next-summary): If the window of
+       summary buffer is present, use it.
+       (wl-folder-jump-to-previous-summary): Ditto.
+
 2002-03-13  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-draft.el (wl-draft-create-contents): Fix docstring.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 012607c..629bb44 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2871,11 +2871,15 @@ Call `wl-summary-write-current-folder' with current folder name."
 (defun wl-folder-jump-to-next-summary ()
   (interactive)
   (when (wl-collect-summary)
+    (if (get-buffer-window (car (wl-collect-summary)))
+       (switch-to-buffer-other-window (car (wl-collect-summary))))
     (wl-summary-next-buffer)))
 
 (defun wl-folder-jump-to-previous-summary ()
   (interactive)
   (when (wl-collect-summary)
+    (if (get-buffer-window (car (wl-collect-summary)))
+       (switch-to-buffer-other-window (car (wl-collect-summary))))
     (wl-summary-previous-buffer)))
 
 (require 'product)