From: hmurata <hmurata>
Date: Tue, 9 Apr 2002 13:31:11 +0000 (+0000)
Subject: * elmo-net.el (elmo-folder-exists-p): If unplugged, guessed by
X-Git-Tag: elmo-mark-root~211
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4b2131920671ce77503e5700f4d03038c517b669;p=elisp%2Fwanderlust.git

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