From 85f15cdac1ca940c3ebeefe3f827bde1643d8d22 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 18 Apr 2001 08:24:09 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-folder-list-subfolders): Use `shimbun-groups' instead of `shimbun-groups-internal'. (elmo-folder-exists-p): Ditto. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-shimbun.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4