From a5a70879ae3dcd0ef6a76b32efce2401ad26eae1 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 20 Sep 2004 05:49:15 +0000 Subject: [PATCH] * elmo-nmz.el (elmo-folder-have-subfolder-p): Define. --- elmo/ChangeLog | 1 + elmo/elmo-nmz.el | 3 +++ 2 files changed, 4 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 7242b94..8f66717 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -9,6 +9,7 @@ group entry. (elmo-folder-exists-p): "[" is empty. (elmo-folder-list-subfolders): New function. + (elmo-folder-have-subfolder-p): Ditto. 2004-09-19 Yoichi NAKAYAMA diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el index aef572e..e8718c4 100644 --- a/elmo/elmo-nmz.el +++ b/elmo/elmo-nmz.el @@ -235,6 +235,9 @@ If the value is a list, all elements are used as index paths for namazu." (luna-define-method elmo-folder-exists-p ((folder elmo-nmz-folder)) (elmo-nmz-folder-pattern-internal folder)) +(luna-define-method elmo-folder-have-subfolder-p ((folder elmo-nmz-folder)) + (null (elmo-nmz-folder-pattern-internal folder))) + (luna-define-method elmo-folder-list-subfolders ((folder elmo-nmz-folder) &optional one-level) (mapcar (lambda (name) (elmo-recover-string-from-filename name)) -- 1.7.10.4