From: yoichi <yoichi>
Date: Mon, 20 Sep 2004 05:49:15 +0000 (+0000)
Subject: * elmo-nmz.el (elmo-folder-have-subfolder-p): Define.
X-Git-Tag: wl-2_12-root~91
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a5a70879ae3dcd0ef6a76b32efce2401ad26eae1;p=elisp%2Fwanderlust.git

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

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  <yoichi@geiin.org>
 
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))