From 80084d7a43741fb70236aecfb804641bfc6c3391 Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 20 Sep 2004 05:40:57 +0000 Subject: [PATCH] (elmo-folder-list-subfolders): Use `directory-files' instead of `elmo-list-subdirectories'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-nmz.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * elmo-nmz.el (elmo-folder-list-subfolders): Use `directory-files' + instead of `elmo-list-subdirectories'. + 2004-09-20 Yoichi NAKAYAMA * 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)) -- 1.7.10.4