From: teranisi <teranisi>
Date: Thu, 1 Mar 2001 01:03:11 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-next-message):
X-Git-Tag: wl-2_6-root~64
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62c0cd2fee69181b0276ea6f069821c670ba6f23;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-next-message):
 Return next message number when wl-summary-move-order is nil.
---

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  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-next-message):
+	Return next message number when wl-summary-move-order is nil.
+
 2001-02-28  Akihiro MOTOKI <mokkun@iname.com>
 
 	* 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)