From: hmurata <hmurata>
Date: Sun, 2 Dec 2001 15:55:15 +0000 (+0000)
Subject: * elmo-filter.el (elmo-folder-list-subfolders): Defined.
X-Git-Tag: wl-2_8-root~97
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=358591535d449d925a6ff8cca3d65bf911946035;p=elisp%2Fwanderlust.git

* elmo-filter.el (elmo-folder-list-subfolders): Defined.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 58b3ac5..6cad408 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-12-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* elmo-filter.el (elmo-folder-list-subfolders): Defined.
+
 	* elmo-archive.el (elmo-archive-call-process): Ignore nemacs.
 
 	* elmo-msgdb.el (elmo-msgdb-insert-file-header): Ditto.
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index e98d034..9befea4 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -156,6 +156,22 @@
    important-mark)
   (elmo-filter-folder-list-importants-internal folder important-mark))
 
+(luna-define-method elmo-folder-list-subfolders ((folder elmo-filter-folder)
+						 &optional one-level)
+  (let* ((target (elmo-filter-folder-target-internal folder))
+	 (prefix (and (string-match
+		       (concat "^\\(.*\\)"
+			       (regexp-quote
+				(elmo-folder-name-internal
+				 target))
+			       "$")
+		       (elmo-folder-name-internal folder))
+		      (match-string 1 (elmo-folder-name-internal
+				       folder)))))
+    (elmo-mapcar-list-of-list
+     (lambda (x) (concat prefix x))
+     (elmo-folder-list-subfolders target one-level))))
+
 (luna-define-method elmo-folder-diff :around ((folder elmo-filter-folder)
 					      &optional numbers)
   (if (not (and (vectorp (elmo-filter-folder-condition-internal