From fab192d3608d66bb5341be4d10d26fdb08d6875a Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 27 Feb 2002 04:08:46 +0000 Subject: [PATCH] Now wl-folder-hierarchy-access-folders takes REGEXP of group names. --- wl/ChangeLog | 10 +++++++++- wl/wl-folder.el | 2 +- wl/wl-vars.el | 4 ++-- 3 files changed, 12 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 418da0e..bbe4059 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,11 @@ +2002-02-26 Yoichi NAKAYAMA + + * wl-folder.el (wl-folder-update-newest): Use wl-string-match-member + instead of wl-match-member with wl-folder-hierarchy-access-folders. + + * wl-vars.el (wl-folder-hierarchy-access-folders): Change default + value. + 2002-02-24 Yuuichi Teranishi * wl-draft.el (wl-draft-reply): If r-to-list is a function, call it; @@ -6,7 +14,7 @@ 2002-02-20 Yuuichi Teranishi * wl-draft.el (wl-draft-send): Use mime-header-encode-method-alist - only if it is bound as variable. + only if it is bound as variable. * wl-mime.el (wl-draft-preview-message): Ditto. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 8b99a0b..9c40670 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -1581,7 +1581,7 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'." (when (setq new-flist (elmo-folder-list-subfolders (wl-folder-get-elmo-folder (car entity)) - (wl-string-member + (wl-string-match-member (car entity) wl-folder-hierarchy-access-folders))) (setq update-flist diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 6d848ce..d4a5282 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -1931,8 +1931,8 @@ POLICY is copy or move." :group 'wl-summary :group 'wl-pref) -(defcustom wl-folder-hierarchy-access-folders '("-" "-alt") - "*Access group folders to make hierarchy structure." +(defcustom wl-folder-hierarchy-access-folders '("^-$" "^-alt$") + "*Access group REGEXPs to make hierarchy structure." :type '(repeat (string :tag "Folder")) :group 'wl-folder) -- 1.7.10.4