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