* 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 (file)
--- 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 (file)
--- 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)