* elmo-cache.el (elmo-folder-list-subfolders): Fix directory-files regexp.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 85caf9b..322987e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * elmo-cache.el (elmo-folder-list-subfolders): Fix directory-files
+       regexp.
+
 2004-01-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elsp-bsfilter.el (elmo-spam-bsfilter-shell-program): Set default

diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el
index df2f238..592bc62 100644 (file)
--- a/elmo/elmo-cache.el
+++ b/elmo/elmo-cache.el
@@ -75,7 +75,7 @@
                                     "cache/"
                                     (file-name-nondirectory f))))
             (directory-files (elmo-cache-folder-directory-internal folder)
-                             t "^[^.].*+"))))
+                             t "^[0-9A-F][0-9A-F]$"))))
 
 (luna-define-method elmo-folder-message-file-p ((folder elmo-cache-folder))
   t)