* wl-util.el (wl-biff-check-folder): Fix for non-pop3 folders.

(wl-biff-check-folder-async): Removed needless let.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 13c9169..cee9696 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-util.el (wl-biff-check-folder): Fix for non-pop3 folders.
+       (wl-biff-check-folder-async): Removed needless let.
+
 2001-12-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-util.el (wl-biff-check-folders): Set `no-cache' argument of

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 4302d29..aae027b 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -834,7 +834,9 @@ This function is imported from Emacs 20.7."
   (if (eq (elmo-folder-type-internal folder) 'pop3)
       (unless (elmo-pop3-get-session folder 'if-exists)
        (wl-folder-check-one-entity (elmo-folder-name-internal folder)
-                                   'biff))))
+                                   'biff))
+    (wl-folder-check-one-entity (elmo-folder-name-internal folder)
+                               'biff)))
 
 (defun wl-biff-check-folder-async-callback (diff data)
   (if (nth 1 data)
@@ -863,8 +865,7 @@ This function is imported from Emacs 20.7."
                (list (elmo-folder-name-internal folder)
                      (get-buffer wl-folder-buffer-name)
                      notify-minibuf))
-         (let ((elmo-network-session-name-prefix "BIFF-"))
-           (elmo-folder-diff-async folder)))
+         (elmo-folder-diff-async folder))
       (unwind-protect
          (wl-biff-notify (car (wl-biff-check-folder folder))
                          notify-minibuf)