From: teranisi <teranisi>
Date: Tue, 17 Oct 2000 01:46:31 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-list-folder-unread): Check plugged status.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=96b953ecebdbc7f1de5fe94ee42817a778620a67;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-list-folder-unread): Check plugged status.
(elmo-imap4-list-folder-important): Ditto.
---

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  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-list-folder-unread): Check plugged status.
+	(elmo-imap4-list-folder-important): Ditto.
+
 2000-10-16  Kenichi OKADA  <okada@opaopa.org>
 
 	* 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