From 5dfdc216b671e734595859222f9217119b1853ed Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 13 Nov 2000 04:28:06 +0000 Subject: [PATCH] * wl.el (wl-toggle-plugged): Don't call `wl-biff-start' if queue-flush-only is non-nil. * wl-util.el (wl-biff-check-folder-async): Fix close parenthesis. --- wl/ChangeLog | 5 +++++ wl/wl-util.el | 4 ++-- wl/wl.el | 2 +- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 0402e0f..e3b76e2 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2000-11-13 Yuuichi Teranishi + * wl.el (wl-toggle-plugged): Don't call `wl-biff-start' if + queue-flush-only is non-nil. + + * wl-util.el (wl-biff-check-folder-async): Fix close parenthesis. + * wl-summary.el (wl-summary-refile-subr): Use folder realname while checking cache folder. diff --git a/wl/wl-util.el b/wl/wl-util.el index 1cff4a1..eeec0e5 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -894,7 +894,7 @@ This function is imported from Emacs 20.7." (let ((elmo-network-session-name-prefix "BIFF-")) (elmo-folder-diff-async folder))) (wl-biff-notify (car (wl-biff-check-folder folder)) - notify-minibuf)) - (setq wl-biff-check-folders-running nil)))) + notify-minibuf) + (setq wl-biff-check-folders-running nil))))) ;;; wl-util.el ends here diff --git a/wl/wl.el b/wl/wl.el index d150b1f..d9312bf 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -113,7 +113,7 @@ (progn ;; flush queue!! (elmo-dop-queue-flush) - (wl-biff-start) + (unless queue-flush-only (wl-biff-start)) (if (and wl-draft-enable-queuing wl-auto-flush-queue) (wl-draft-queue-flush)) -- 1.7.10.4