From 3ef189aa0a9ef4ac91b94818d626c7dd571b4603 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 5 May 2004 05:56:47 +0000 Subject: [PATCH] (elmo-folder-initialize): Set a dummy when the shimbun backend couldn't open. --- elmo/ChangeLog | 5 +++++ elmo/elmo-shimbun.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * elmo-shimbun.el (elmo-folder-initialize): Set a dummy when the + shimbun backend couldn't open. + 2004-04-25 Tetsurou Okazaki * 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 -- 1.7.10.4