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