From: teranisi <teranisi>
Date: Thu, 20 Dec 2001 11:16:24 +0000 (+0000)
Subject: * wl-util.el (wl-biff-check-folder): Fix for non-pop3 folders.
X-Git-Tag: wl-2_9_5~75
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=38c126ece3da4510f40a792f38b96a7c26c4a317;p=elisp%2Fwanderlust.git

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