From: yoichi <yoichi>
Date: Wed, 27 Feb 2002 04:08:46 +0000 (+0000)
Subject: Now wl-folder-hierarchy-access-folders takes REGEXP of group names.
X-Git-Tag: wl-2_9_8~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fab192d3608d66bb5341be4d10d26fdb08d6875a;p=elisp%2Fwanderlust.git

Now wl-folder-hierarchy-access-folders takes REGEXP of group names.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* 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  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-draft-reply): If r-to-list is a function, call it;
@@ -6,7 +14,7 @@
 2002-02-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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)