From e59d9b13f039bf975c614e112efaa7e58a296d16 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 23 Sep 2002 14:48:45 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-cursor-move-surface): Add missing logic to call `wl-summary-buffer-prev-folder-function'. (pointed out by Kazuhiro NISHIYAMA [mhc:01644]) --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 12 ++++++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 21b79c1..5dcf522 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-09-23 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-cursor-move-surface): Add missing + logic to call `wl-summary-buffer-prev-folder-function'. + (pointed out by Kazuhiro NISHIYAMA [mhc:01644]) + 2002-09-18 Yuuichi Teranishi * wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf diff --git a/wl/wl-summary.el b/wl/wl-summary.el index cceed44..6ecaef7 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -5002,7 +5002,7 @@ Use function list is `wl-summary-write-current-folder-functions'." (if downward (forward-line 1) (forward-line -1)) - (setq skip (or (string-match skip-tmark-regexp + (setq skip (or (string-match skip-tmark-regexp (save-excursion (wl-summary-temp-mark))) (and skip-pmark-regexp @@ -5021,8 +5021,12 @@ Use function list is `wl-summary-write-current-folder-functions'." (if wl-summary-buffer-disp-msg (wl-summary-redisplay)) (if interactive - (if wl-summary-buffer-next-folder-function - (funcall wl-summary-buffer-next-folder-function) + (cond + ((and (not downward) wl-summary-buffer-prev-folder-function) + (funcall wl-summary-buffer-prev-folder-function)) + ((and downward wl-summary-buffer-next-folder-function) + (funcall wl-summary-buffer-next-folder-function)) + (t (when wl-auto-select-next (setq next-entity (if downward @@ -5034,7 +5038,7 @@ Use function list is `wl-summary-write-current-folder-functions'." '(lambda () (wl-summary-next-folder-or-exit next-entity)) (format "No more messages. Type SPC to go to %s." - (wl-summary-entity-info-msg next-entity finfo)))))))) + (wl-summary-entity-info-msg next-entity finfo))))))))) (defun wl-summary-prev (&optional interactive) (interactive) -- 1.7.10.4