From 62c0cd2fee69181b0276ea6f069821c670ba6f23 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 1 Mar 2001 01:03:11 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-next-message): Return next message number when wl-summary-move-order is nil. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 34 ++++++++++++++++++---------------- 2 files changed, 23 insertions(+), 16 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 603deee..bc482bd 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-03-01 Yuuichi Teranishi + + * wl-summary.el (wl-summary-next-message): + Return next message number when wl-summary-move-order is nil. + 2001-02-28 Akihiro MOTOKI * wl-summary.el (wl-summary-move-spec-plugged-alist): Renamed from diff --git a/wl/wl-summary.el b/wl/wl-summary.el index cb9990e..ddea1ae 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4521,25 +4521,27 @@ If ARG, exit virtual folder." marked-list nums2) (unless hereto (setq nums (cdr nums))) (setq nums2 nums) - (catch 'done - (while cur-spec - (setq nums nums2) - (cond ((eq (car (car cur-spec)) 'p) - (if (setq marked-list (elmo-msgdb-list-messages-mark-match - wl-summary-buffer-msgdb - (cdr (car cur-spec)))) + (if cur-spec + (catch 'done + (while cur-spec + (setq nums nums2) + (cond ((eq (car (car cur-spec)) 'p) + (if (setq marked-list (elmo-msgdb-list-messages-mark-match + wl-summary-buffer-msgdb + (cdr (car cur-spec)))) + (while nums + (if (memq (car nums) marked-list) + (throw 'done (car nums))) + (setq nums (cdr nums))))) + ((eq (car (car cur-spec)) 't) (while nums - (if (memq (car nums) marked-list) + (if (and wl-summary-buffer-target-mark-list + (memq (car nums) + wl-summary-buffer-target-mark-list)) (throw 'done (car nums))) (setq nums (cdr nums))))) - ((eq (car (car cur-spec)) 't) - (while nums - (if (and wl-summary-buffer-target-mark-list - (memq (car nums) - wl-summary-buffer-target-mark-list)) - (throw 'done (car nums))) - (setq nums (cdr nums))))) - (setq cur-spec (cdr cur-spec)))))) + (setq cur-spec (cdr cur-spec)))) + (car nums)))) (defsubst wl-summary-cursor-move (direction hereto) (when (and (eq direction 'up) -- 1.7.10.4