From: kaoru <kaoru>
Date: Wed, 18 Jun 2003 19:00:15 +0000 (+0000)
Subject: * wl-vars (wl-delete-folder-alist,): Change default value.
X-Git-Tag: wl-2_10_1pre~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=22b81a214412bb63c5cb70cbfcfa0987b23880bf;p=elisp%2Fwanderlust.git

* wl-vars (wl-delete-folder-alist,): Change default value.
(wl-folder-hierarchy-access-folders): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1dbc68a..9c3622b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-vars (wl-delete-folder-alist,): Change default value.
+	(wl-folder-hierarchy-access-folders): Ditto.
+
 	* wl-summary.el (wl-summary-goto-folder-subr): Don't restrict
 	`wl-summary-highlight'.
 	(wl-summary-reedit): Use `cond' instead of nested `if'.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 4f222ba..6505acb 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2120,7 +2120,8 @@ Sender information in summary mode."
   :type 'string
   :group 'wl-folder)
 
-(defcustom wl-delete-folder-alist '(("^-" . remove))
+(defcustom wl-delete-folder-alist '(("^-" . remove)
+				    ("^@" . remove))
   "*Alist of folder and delete policy.
 Each element is (folder-regexp . policy).
 
@@ -2153,9 +2154,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