2005-02-17 ARISAWA Akihiro <ari@mbf.sphere.ne.jp>

	* elmo-shimbun.el (elmo-folder-exists-p): Use `shimbun-group-p'
	if available.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f2d13ac..84c4092 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-17  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+       * elmo-shimbun.el (elmo-folder-exists-p): Use `shimbun-group-p' 
+       if available.
+
 2005-02-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-signal.el: New file.

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 982e3c7..677cbe0 100644 (file)
--- 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)