* wl-vars.el (wl-folder-hierarchy-access-folders): Change default

value.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0835c56..7497e95 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-14  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-vars.el (wl-folder-hierarchy-access-folders): Change default
+       value.
+
 2003-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * wl-xmas.el (wl-xmas-highlight-folder-group-line): Use

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 00d1b6c..67962ff 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2176,9 +2176,10 @@ POLICY is copy or move."
   :group 'wl-summary
   :group 'wl-pref)
 
-(defcustom wl-folder-hierarchy-access-folders '("^-$" "^-alt$")
+(defcustom wl-folder-hierarchy-access-folders '("^-[^\\.]*\\(:\\|@\\|$\\)"
+                                               "^@$")
   "*Access group REGEXPs to make hierarchy structure."
-  :type '(repeat (string :tag "Folder"))
+  :type '(repeat (string :tag "Regexp"))
   :group 'wl-folder)
 
 (defcustom wl-folder-init-load-access-folders nil