From: teranisi <teranisi>
Date: Thu, 22 Feb 2001 09:37:31 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-default-get-next-msg): Fix.
X-Git-Tag: wl-2_6-root~87
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0dbc66141a7028bc29eb50e83b5dd39410d8626b;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-default-get-next-msg): Fix.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3f1bea6..d05a706 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2001-02-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-summary.el (wl-summary-default-get-next-msg): Fix.
+
 	* Version number is increased to 2.5.8.
 
 	* wl-thread.el (toplevel): require 'cl.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index a8254cb..6b3dfea 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5917,10 +5917,13 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	(message "Dropping...done"))))
 
 (defun wl-summary-default-get-next-msg (msg)
-  (wl-summary-next-message msg
-			   (if wl-summary-move-direction-downward 'down
-			     'up)
-			   nil))
+  (or (wl-summary-next-message msg
+			       (if wl-summary-move-direction-downward 'down
+				 'up)
+			       nil)
+      (cadr (memq num (if wl-summary-move-direction-downward
+			  wl-summary-buffer-number-list
+			(reverse wl-summary-buffer-number-list))))))
 
 (defsubst wl-cache-prefetch-p (fld &optional num)
   (cond ((and num wl-cache-prefetch-folder-type-list)