From bd45a05d5eef81fb1de80229be7725f9bdc02982 Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Wed, 28 Jun 2000 04:45:45 +0000
Subject: [PATCH] (wl-summary-buffer-prev-folder-func): New buffer-local
 variable. (wl-summary-buffer-next-folder-func): Ditto.
 (wl-summary-down): Call
 `wl-summary-buffer-next-folder-func' if non-nil.
 (wl-summary-up): Call `wl-summary-buffer-prev-folder-func'
 if non-nil.

---
 wl/wl-summary.el |   64 ++++++++++++++++++++++++++++++------------------------
 1 file changed, 36 insertions(+), 28 deletions(-)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5fdaac5..d03a475 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-06-05 18:05:53 teranisi>
+;; Time-stamp: <00/06/28 13:31:45 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -94,6 +94,8 @@
 (defvar wl-summary-buffer-prev-refile-destination nil)
 (defvar wl-summary-buffer-prev-copy-destination nil)
 (defvar wl-summary-buffer-saved-message nil)
+(defvar wl-summary-buffer-prev-folder-func nil)
+(defvar wl-summary-buffer-next-folder-func nil)
 
 (defvar wl-thread-indent-level-internal nil)
 (defvar wl-thread-have-younger-brother-str-internal nil)
@@ -155,7 +157,9 @@
        'wl-thread-youngest-child-str-internal
        'wl-thread-vertical-str-internal
        'wl-thread-horizontal-str-internal
-       'wl-thread-space-str-internal))
+       'wl-thread-space-str-internal
+       'wl-summary-buffer-prev-folder-func
+       'wl-summary-buffer-next-folder-func))
 
 ;; internal functions (dummy)
 (unless (fboundp 'wl-summary-append-message-func-internal)
@@ -5351,20 +5355,22 @@ Reply to author if invoked with argument."
 	  (wl-summary-redisplay))
     (if (or interactive
 	    (interactive-p))
-	(let (next-entity finfo)
-	  (when wl-auto-select-next
-	    (progn
-	      (setq next-entity (wl-summary-get-prev-unread-folder))
-	      (if next-entity
-		  (setq finfo (wl-folder-get-entity-info next-entity)))))
-	  (if (and skip-no-unread
-		   (eq wl-auto-select-next 'skip-no-unread))
-	      (wl-summary-next-folder-or-exit next-entity t)
-	    (wl-ask-folder 
-	     '(lambda () (wl-summary-next-folder-or-exit next-entity t))
-	     (format
-	      "No more unread messages. Type SPC to go to %s."
-	      (wl-summary-entity-info-msg next-entity finfo))))))))
+	(if wl-summary-buffer-prev-folder-func
+	    (funcall wl-summary-buffer-prev-folder-func)
+	  (let (next-entity finfo)
+	    (when wl-auto-select-next
+	      (progn
+		(setq next-entity (wl-summary-get-prev-unread-folder))
+		(if next-entity
+		    (setq finfo (wl-folder-get-entity-info next-entity)))))
+	    (if (and skip-no-unread
+		     (eq wl-auto-select-next 'skip-no-unread))
+		(wl-summary-next-folder-or-exit next-entity t)
+	      (wl-ask-folder 
+	       '(lambda () (wl-summary-next-folder-or-exit next-entity t))
+	       (format
+		"No more unread messages. Type SPC to go to %s."
+		(wl-summary-entity-info-msg next-entity finfo)))))))))
 
 (defun wl-summary-get-prev-folder ()
   (let ((folder-buf (get-buffer wl-folder-buffer-name))
@@ -5407,19 +5413,21 @@ Reply to author if invoked with argument."
 	  (wl-summary-redisplay))
     (if (or interactive
 	    (interactive-p))
-	(let (next-entity finfo)
-	  (when wl-auto-select-next
-	    (setq next-entity (wl-summary-get-next-unread-folder))
+	(if wl-summary-buffer-next-folder-func
+	    (funcall wl-summary-buffer-next-folder-func)
+	  (let (next-entity finfo)
+	    (when wl-auto-select-next
+	      (setq next-entity (wl-summary-get-next-unread-folder)))
 	    (if next-entity
-		(setq finfo (wl-folder-get-entity-info next-entity))))
-	  (if (and skip-no-unread
-		   (eq wl-auto-select-next 'skip-no-unread))
-	      (wl-summary-next-folder-or-exit next-entity)
-	    (wl-ask-folder 
-	     '(lambda () (wl-summary-next-folder-or-exit next-entity))
-	     (format
-	      "No more unread messages. Type SPC to go to %s."
-	      (wl-summary-entity-info-msg next-entity finfo))))))))
+		(setq finfo (wl-folder-get-entity-info next-entity)))
+	    (if (and skip-no-unread
+		     (eq wl-auto-select-next 'skip-no-unread))
+		(wl-summary-next-folder-or-exit next-entity)
+	      (wl-ask-folder 
+	       '(lambda () (wl-summary-next-folder-or-exit next-entity))
+	       (format
+		"No more unread messages. Type SPC to go to %s."
+		(wl-summary-entity-info-msg next-entity finfo)))))))))
 
 (defun wl-summary-goto-last-displayed-msg ()
   (interactive)
-- 
1.7.10.4