* elmo-net.el (elmo-folder-exists-p): If unplugged, guessed by

msgdb path.

* elmo-pop3.el (elmo-folder-exists-p): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b9a3eb0..5781373 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2002-04-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-net.el (elmo-folder-exists-p): If unplugged, guessed by
+       msgdb path.
+
+       * elmo-pop3.el (elmo-folder-exists-p): Ditto.
+
 2002-04-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * elmo-util.el (elmo-read-search-condition-internal): Give default

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index bfc2d4b..009dcae 100644 (file)
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -348,7 +348,8 @@ Returned value is searched from `elmo-network-stream-type-alist'."
 (luna-define-method elmo-folder-exists-p ((folder elmo-net-folder))
   (if (elmo-folder-plugged-p folder)
       (elmo-folder-send folder 'elmo-folder-exists-p-plugged)
-    nil)) ; If unplugged, assume the folder not exists.
+    ;; If unplugged, guess by msgdb.
+    (file-directory-p (elmo-folder-msgdb-path folder))))
 
 (luna-define-method elmo-folder-status ((folder elmo-net-folder))
   (if (elmo-folder-plugged-p folder)

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 26a8426..730c1a3 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -458,7 +458,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"")
              (setq session (elmo-pop3-get-session folder))
            (if session
                (elmo-network-close-session session)))))
-    nil))
+    (file-directory-p (elmo-folder-msgdb-path folder))))
 
 (defun elmo-pop3-parse-uidl-response (string)
   (let ((buffer (current-buffer))