From: yoichi <yoichi>
Date: Fri, 15 Mar 2002 07:03:03 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-jump-to-next-summary): If the window of
X-Git-Tag: elmo-mark-root~253
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=60740defab597fef28092387a59736baf205884b;p=elisp%2Fwanderlust.git

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