From 22b81a214412bb63c5cb70cbfcfa0987b23880bf Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 18 Jun 2003 19:00:15 +0000 Subject: [PATCH] * wl-vars (wl-delete-folder-alist,): Change default value. (wl-folder-hierarchy-access-folders): Ditto. --- wl/ChangeLog | 3 +++ wl/wl-vars.el | 8 +++++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + * 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 -- 1.7.10.4