From: hmurata <hmurata>
Date: Wed, 5 May 2004 05:56:47 +0000 (+0000)
Subject: (elmo-folder-initialize): Set a dummy when the
X-Git-Tag: wl-2_11_27~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3ef189aa0a9ef4ac91b94818d626c7dd571b4603;p=elisp%2Fwanderlust.git

(elmo-folder-initialize): Set a dummy when the
shimbun backend couldn't open.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e92f399..59fd8d3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-shimbun.el (elmo-folder-initialize): Set a dummy when the
+	shimbun backend couldn't open.
+
 2004-04-25  Tetsurou Okazaki  <okazaki@be.to>
 
 	* elmo-pipe.el (elmo-message-folder): Call `elmo-message-folder' recursively.
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index e63d8c9..3e1c24b 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -223,8 +223,11 @@ update overview when message is fetched."
       (when (nth 0 server-group) ; server
 	(elmo-shimbun-folder-set-shimbun-internal
 	 folder
-	 (shimbun-open (nth 0 server-group)
-		       (luna-make-entity 'shimbun-elmo-mua :folder folder))))
+	 (condition-case nil
+	     (shimbun-open (nth 0 server-group)
+			   (luna-make-entity 'shimbun-elmo-mua :folder folder))
+	   (file-error
+	    (luna-make-entity 'shimbun :server (nth 0 server-group))))))
       (when (nth 1 server-group)
 	(elmo-shimbun-folder-set-group-internal
 	 folder