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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9af4767..4c21fe5 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 3541815..1e0e983 100644 (file)
--- 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'."