From: teranisi <teranisi>
Date: Mon, 13 Nov 2000 04:28:06 +0000 (+0000)
Subject: * wl.el (wl-toggle-plugged): Don't call `wl-biff-start' if queue-flush-only
X-Git-Tag: wl-2_4_0pre2~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5dfdc216b671e734595859222f9217119b1853ed;p=elisp%2Fwanderlust.git

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

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  <teranisi@gohome.org>
 
+	* 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))