From daa3ae08ff7892dd44f435678dd615f02d16157e Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 1 Mar 2001 00:53:33 +0000 Subject: [PATCH] 2001-02-28 Akihiro MOTOKI * wl-summary.el (wl-summary-move-spec-plugged-alist): Renamed from `wl-summary-move-spec-alist'. (wl-summary-move-spec-unplugged-alist): New variable (Move spec for unplugged status). (wl-summary-next-message): Use `wl-summary-move-spec-plugged-alist' if plugged, `wl-summary-move-spec-unplugged-alist' is unplugged. --- wl/ChangeLog | 9 +++++++++ wl/wl-summary.el | 14 ++++++++++++-- 2 files changed, 21 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a165bd4..603deee 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,12 @@ +2001-02-28 Akihiro MOTOKI + + * wl-summary.el (wl-summary-move-spec-plugged-alist): Renamed from + `wl-summary-move-spec-alist'. + (wl-summary-move-spec-unplugged-alist): New variable + (Move spec for unplugged status). + (wl-summary-next-message): Use `wl-summary-move-spec-plugged-alist' + if plugged, `wl-summary-move-spec-unplugged-alist' is unplugged. + 2001-03-01 OKAZAKI Tetsurou * wl-e21.el (wl-draft-overload-menubar): "FCC" -> "Fcc". diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 3af1481..cb9990e 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4488,7 +4488,7 @@ If ARG, exit virtual folder." (wl-match-string 1 wday-str) (elmo-date-get-week year month mday)))) -(defvar wl-summary-move-spec-alist +(defvar wl-summary-move-spec-plugged-alist (` ((new . ((t . nil) (p . (, wl-summary-new-mark)) (p . (, (wl-regexp-opt @@ -4502,9 +4502,19 @@ If ARG, exit virtual folder." wl-summary-unread-cached-mark)))) (p . (, (regexp-quote wl-summary-important-mark)))))))) +(defvar wl-summary-move-spec-unplugged-alist + (` ((new . ((t . nil) + (p . (, wl-summary-unread-cached-mark)) + (p . (, (regexp-quote wl-summary-important-mark))))) + (unread . ((t . nil) + (p . (, wl-summary-unread-cached-mark)) + (p . (, (regexp-quote wl-summary-important-mark)))))))) + (defsubst wl-summary-next-message (num direction hereto) (let ((cur-spec (cdr (assq wl-summary-move-order - wl-summary-move-spec-alist))) + (if (elmo-folder-plugged-p wl-summary-buffer-folder-name) + wl-summary-move-spec-plugged-alist + wl-summary-move-spec-unplugged-alist)))) (nums (memq num (if (eq direction 'up) (reverse wl-summary-buffer-number-list) wl-summary-buffer-number-list))) -- 1.7.10.4