From 96b953ecebdbc7f1de5fe94ee42817a778620a67 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Oct 2000 01:46:31 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-list-folder-unread): Check plugged status. (elmo-imap4-list-folder-important): Ditto. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 1a8b9ff..027eea8 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-10-17 Yuuichi Teranishi + + * elmo-imap4.el (elmo-imap4-list-folder-unread): Check plugged status. + (elmo-imap4-list-folder-important): Ditto. + 2000-10-16 Kenichi OKADA * elmo-nntp.el (elmo-network-initialize-session): Fix. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 41a2180..f91a04f 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -725,14 +725,16 @@ BUFFER must be a single-byte buffer." (defun elmo-imap4-list-folder-unread (spec number-alist mark-alist unread-marks) - (if (elmo-imap4-use-flag-p spec) + (if (and (elmo-imap4-plugged-p spec) + (elmo-imap4-use-flag-p spec)) (elmo-imap4-list spec "unseen") (elmo-generic-list-folder-unread spec number-alist mark-alist unread-marks))) (defun elmo-imap4-list-folder-important (spec number-alist) - (and (elmo-imap4-use-flag-p spec) - (elmo-imap4-list spec "flagged"))) + (if (and (elmo-imap4-plugged-p spec) + (elmo-imap4-use-flag-p spec)) + (elmo-imap4-list spec "flagged"))) (defmacro elmo-imap4-detect-search-charset (string) (` (with-temp-buffer -- 1.7.10.4