From e394ac47681f33d2f88594a1ebd046caf08280c3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 19 Feb 2005 02:35:19 +0000 Subject: [PATCH] 2005-02-17 ARISAWA Akihiro * elmo-shimbun.el (elmo-folder-exists-p): Use `shimbun-group-p' if available. --- elmo/ChangeLog | 5 +++++ elmo/elmo-shimbun.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f2d13ac..84c4092 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-02-17 ARISAWA Akihiro + + * elmo-shimbun.el (elmo-folder-exists-p): Use `shimbun-group-p' + if available. + 2005-02-18 Hiroya Murata * elmo-signal.el: New file. diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el index 982e3c7..677cbe0 100644 --- a/elmo/elmo-shimbun.el +++ b/elmo/elmo-shimbun.el @@ -514,11 +514,12 @@ If it is the symbol `all', update overview for all shimbun folders." (luna-define-method elmo-folder-exists-p ((folder elmo-shimbun-folder)) (if (elmo-shimbun-folder-group-internal folder) - (progn + (if (fboundp 'shimbun-group-p) + (shimbun-group-p (elmo-shimbun-folder-shimbun-internal folder) + (elmo-shimbun-folder-group-internal folder)) (member (elmo-shimbun-folder-group-internal folder) - (shimbun-groups (elmo-shimbun-folder-shimbun-internal - folder)))) + (shimbun-groups (elmo-shimbun-folder-shimbun-internal folder)))) t)) (luna-define-method elmo-folder-delete-messages ((folder elmo-shimbun-folder) -- 1.7.10.4