* elmo-nmz.el (elmo-folder-have-subfolder-p): Define.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7242b94..8f66717 100644 (file)
--- 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  <yoichi@geiin.org>
 

diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index aef572e..e8718c4 100644 (file)
--- 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))