From bddee0a9a17824323e249576326dbaaf588e8b80 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 28 Jun 2000 06:32:04 +0000 Subject: [PATCH] (wl-summary-next): Call `wl-summary-buffer-next-folder-func' if non-nil. (wl-summary-prev): Call `wl-summary-buffer-prev-folder-func' if non-nil. --- wl/wl-summary.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index d03a475..e975a44 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4,7 +4,7 @@ ;; Author: Yuuichi Teranishi ;; Keywords: mail, net news -;; Time-stamp: <00/06/28 13:31:45 teranisi> +;; Time-stamp: <00/06/28 14:52:52 teranisi> ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen). @@ -5297,7 +5297,8 @@ Reply to author if invoked with argument." (if wl-summary-buffer-disp-msg (wl-summary-redisplay))) (if (or interactive (interactive-p)) - (progn + (if wl-summary-buffer-prev-folder-func + (funcall wl-summary-buffer-prev-folder-func) (when wl-auto-select-next (setq next-entity (wl-summary-get-prev-folder)) (if next-entity @@ -5335,7 +5336,8 @@ Reply to author if invoked with argument." (if wl-summary-buffer-disp-msg (wl-summary-redisplay)) (if (or interactive (interactive-p)) - (progn + (if wl-summary-buffer-next-folder-func + (funcall wl-summary-buffer-next-folder-func) (when wl-auto-select-next (setq next-entity (wl-summary-get-next-folder)) (if next-entity -- 1.7.10.4