Now wl-folder-hierarchy-access-folders takes REGEXP of group names.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 418da0e..bbe4059 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2002-02-26  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-folder.el (wl-folder-update-newest): Use wl-string-match-member
+       instead of wl-match-member with wl-folder-hierarchy-access-folders.
+
+       * wl-vars.el (wl-folder-hierarchy-access-folders): Change default
+       value.
+
 2002-02-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-reply): If r-to-list is a function, call it;
@@ -6,7 +14,7 @@
 2002-02-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-send): Use mime-header-encode-method-alist
-       only if it is bound as variable.
+       only if it is bound as variable.
 
        * wl-mime.el (wl-draft-preview-message): Ditto.
 

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 8b99a0b..9c40670 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1581,7 +1581,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
                (when (setq new-flist
                            (elmo-folder-list-subfolders
                             (wl-folder-get-elmo-folder (car entity))
-                            (wl-string-member
+                            (wl-string-match-member
                              (car entity)
                              wl-folder-hierarchy-access-folders)))
                  (setq update-flist

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 6d848ce..d4a5282 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1931,8 +1931,8 @@ POLICY is copy or move."
   :group 'wl-summary
   :group 'wl-pref)
 
-(defcustom wl-folder-hierarchy-access-folders '("-" "-alt")
-  "*Access group folders to make hierarchy structure."
+(defcustom wl-folder-hierarchy-access-folders '("^-$" "^-alt$")
+  "*Access group REGEXPs to make hierarchy structure."
   :type '(repeat (string :tag "Folder"))
   :group 'wl-folder)