From: teranisi <teranisi>
Date: Thu, 1 Mar 2001 00:53:33 +0000 (+0000)
Subject: 2001-02-28  Akihiro MOTOKI <mokkun@iname.com>
X-Git-Tag: wl-2_6-root~65
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=daa3ae08ff7892dd44f435678dd615f02d16157e;p=elisp%2Fwanderlust.git

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
--- 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
--- 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)))