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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3f1bea6..d05a706 100644 (file)
--- 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 (file)
--- 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)