From efc36f9f7fdd3179aab7db8d5b6ae587eb2b5d2c Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 22 Feb 2001 09:38:00 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-default-get-next-msg): Fix. --- wl/ChangeLog | 2 ++ wl/wl-summary.el | 11 +++++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + * 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'." -- 1.7.10.4