* 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 (file)
--- 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 (file)
--- 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