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