From: yoichi <yoichi>
Date: Mon, 23 Sep 2002 14:48:45 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-cursor-move-surface): Add missing
X-Git-Tag: wl-2_11_1~125
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e59d9b13f039bf975c614e112efaa7e58a296d16;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)