From 4b2131920671ce77503e5700f4d03038c517b669 Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 9 Apr 2002 13:31:11 +0000 Subject: [PATCH] * elmo-net.el (elmo-folder-exists-p): If unplugged, guessed by msgdb path. * elmo-pop3.el (elmo-folder-exists-p): Ditto. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-net.el | 3 ++- elmo/elmo-pop3.el | 2 +- 3 files changed, 10 insertions(+), 2 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4