From 38c126ece3da4510f40a792f38b96a7c26c4a317 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 20 Dec 2001 11:16:24 +0000 Subject: [PATCH] * wl-util.el (wl-biff-check-folder): Fix for non-pop3 folders. (wl-biff-check-folder-async): Removed needless let. --- wl/ChangeLog | 5 +++++ wl/wl-util.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4