From: yoichi <yoichi>
Date: Fri, 14 Feb 2003 12:43:06 +0000 (+0000)
Subject: * wl-vars.el (wl-folder-hierarchy-access-folders): Change default
X-Git-Tag: merged-trunk-to-elmo-mark-15~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5e44d39db70452a18d1d67d20ffefe979720b4e9;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0835c56..7497e95 100644
--- 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
--- 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