* wl-summary.el (wl-summary-cursor-move-surface): Add missing

logic to call `wl-summary-buffer-prev-folder-function'.
(pointed out by Kazuhiro NISHIYAMA [mhc:01644])

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 21b79c1..5dcf522 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-summary.el (wl-summary-cursor-move-surface): Add missing
+       logic to call `wl-summary-buffer-prev-folder-function'.
+       (pointed out by Kazuhiro NISHIYAMA [mhc:01644])
+
 2002-09-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-reply): Avoid error when buf and summary-buf

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index cceed44..6ecaef7 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5002,7 +5002,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
       (if downward
          (forward-line 1)
        (forward-line -1))
-      (setq skip (or (string-match skip-tmark-regexp 
+      (setq skip (or (string-match skip-tmark-regexp
                                   (save-excursion
                                     (wl-summary-temp-mark)))
                     (and skip-pmark-regexp
@@ -5021,8 +5021,12 @@ Use function list is `wl-summary-write-current-folder-functions'."
        (if wl-summary-buffer-disp-msg
            (wl-summary-redisplay))
       (if interactive
-         (if wl-summary-buffer-next-folder-function
-             (funcall wl-summary-buffer-next-folder-function)
+         (cond
+          ((and (not downward) wl-summary-buffer-prev-folder-function)
+           (funcall wl-summary-buffer-prev-folder-function))
+          ((and downward wl-summary-buffer-next-folder-function)
+           (funcall wl-summary-buffer-next-folder-function))
+          (t
            (when wl-auto-select-next
              (setq next-entity
                    (if downward
@@ -5034,7 +5038,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
             '(lambda () (wl-summary-next-folder-or-exit next-entity))
             (format
              "No more messages. Type SPC to go to %s."
-             (wl-summary-entity-info-msg next-entity finfo))))))))
+             (wl-summary-entity-info-msg next-entity finfo)))))))))
 
 (defun wl-summary-prev (&optional interactive)
   (interactive)