From: teranisi <teranisi>
Date: Sat, 19 Feb 2005 02:35:19 +0000 (+0000)
Subject: 2005-02-17  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
X-Git-Tag: wl-2_14-root~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e394ac47681f33d2f88594a1ebd046caf08280c3;p=elisp%2Fwanderlust.git

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