From: teranisi <teranisi>
Date: Wed, 18 Apr 2001 08:24:09 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-folder-list-subfolders):
X-Git-Tag: wl-2_6-root^3~43
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85f15cdac1ca940c3ebeefe3f827bde1643d8d22;p=elisp%2Fwanderlust.git

* elmo-shimbun.el (elmo-folder-list-subfolders):
Use `shimbun-groups' instead of `shimbun-groups-internal'.
(elmo-folder-exists-p): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f47fa8f..9cd1de2 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2001-4-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-shimbun.el (elmo-folder-list-subfolders):
+	Use `shimbun-groups' instead of `shimbun-groups-internal'.
+	(elmo-folder-exists-p): Ditto.
+
 2001-04-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-shimbun.el (elmo-shimbun-msgdb-create-entity): Set `shimbun'
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index a2f1a5a..b16c582 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -213,15 +213,15 @@
 		(elmo-shimbun-folder-shimbun-internal folder))
 	       "."
 	       x))
-     (shimbun-groups-internal (elmo-shimbun-folder-shimbun-internal folder)))))
+     (shimbun-groups (elmo-shimbun-folder-shimbun-internal folder)))))
 
 (luna-define-method elmo-folder-exists-p ((folder elmo-shimbun-folder))
   (if (elmo-shimbun-folder-group-internal folder)
       (progn
 	(member 
 	 (elmo-shimbun-folder-group-internal folder)
-	 (shimbun-groups-internal (elmo-shimbun-folder-shimbun-internal
-				   folder))))
+	 (shimbun-groups (elmo-shimbun-folder-shimbun-internal
+			  folder))))
     t))
 
 (luna-define-method elmo-folder-search ((folder elmo-shimbun-folder)