2001-02-28 Akihiro MOTOKI <mokkun@iname.com>

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a165bd4..603deee 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2001-02-28  Akihiro MOTOKI <mokkun@iname.com>
+
+       * 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  <okazaki@be.to>
 
        * 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 (file)
--- 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)))