From: hmurata <hmurata>
Date: Mon, 20 Sep 2004 05:40:57 +0000 (+0000)
Subject: (elmo-folder-list-subfolders): Use `directory-files'
X-Git-Tag: wl-2_12-root~92
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=80084d7a43741fb70236aecfb804641bfc6c3391;p=elisp%2Fwanderlust.git

(elmo-folder-list-subfolders): Use `directory-files'
instead of `elmo-list-subdirectories'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3f78034..7242b94 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-20  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-nmz.el (elmo-folder-list-subfolders): Use `directory-files'
+	instead of `elmo-list-subdirectories'.
+
 2004-09-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo-nmz.el (elmo-folder-initialize): Enable "[" for access
diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index 28b59b9..aef572e 100644
--- a/elmo/elmo-nmz.el
+++ b/elmo/elmo-nmz.el
@@ -238,9 +238,12 @@ If the value is a list, all elements are used as index paths for namazu."
 (luna-define-method elmo-folder-list-subfolders ((folder elmo-nmz-folder)
 						 &optional one-level)
   (mapcar (lambda (name) (elmo-recover-string-from-filename name))
-	  (elmo-list-subdirectories (expand-file-name "nmz"
-						      elmo-msgdb-directory)
-				    "" t)))
+	  (directory-files (expand-file-name "nmz" elmo-msgdb-directory)
+			   nil
+			   (concat
+			    "^"
+			    (regexp-quote
+			     (elmo-folder-prefix-internal folder))))))
 
 (require 'product)
 (product-provide (provide 'elmo-nmz) (require 'elmo-version))