From: teranisi <teranisi>
Date: Wed, 30 Aug 2000 00:25:15 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-folder-exists-p): Don't cause an error when
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e5330894ebd445a57bfd1f7152236e66fca846a;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-folder-exists-p): Don't cause an error when
 the mailbox does not exist.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ae397ad..f4d517f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-folder-exists-p): Don't cause an error when
+	the mailbox does not exist.
+
 2000-08-30  OKAZAKI Tetsurou  <okazaki@be.to>
 
 	* elmo-imap4.el (elmo-imap4-send-command): Remove unused local variable.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 63b7803..ccb7773 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -545,10 +545,13 @@ BUFFER must be a single-byte buffer."
 	    result)))
 
 (defun elmo-imap4-folder-exists-p (spec)
-  (elmo-imap4-send-command-wait
-   (elmo-imap4-get-session spec)
-   (list "status " (elmo-imap4-mailbox (elmo-imap4-spec-mailbox spec))
-	 " (messages)")))
+  (let ((session (elmo-imap4-get-session spec)))
+    (elmo-imap4-read-ok
+     session
+     (elmo-imap4-send-command
+      session
+      (list "status " (elmo-imap4-mailbox (elmo-imap4-spec-mailbox spec))
+	    " (messages)")))))
 
 (defun elmo-imap4-folder-creatable-p (spec)
   t)