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

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9af4767..4c21fe5 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 3541815..1e0e983 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5595,10 +5595,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))))))
 
 (defun wl-summary-save-current-message ()
   "Save current message for `wl-summary-yank-saved-message'."