From 60740defab597fef28092387a59736baf205884b Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 15 Mar 2002 07:03:03 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 4 ++++ 2 files changed, 10 insertions(+) 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 + + * 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 * 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) -- 1.7.10.4