(elmo-folder-list-subfolders): Use `directory-files'

instead of `elmo-list-subdirectories'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3f78034..7242b94 100644 (file)
--- 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 (file)
--- 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))