From: yoichi <yoichi>
Date: Thu, 13 Oct 2005 23:48:01 +0000 (+0000)
Subject: * wl-vars.el (wl-folder-hierarchy-access-folders): Fix regexp.
X-Git-Tag: wl-2_15_3~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf8ed01d291d30995d2a422bdb3c864b664ff857;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-folder-hierarchy-access-folders): Fix regexp.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 870c6c5..d3079fb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-vars.el (wl-folder-hierarchy-access-folders): Fix regexp.
+
 2005-10-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-mime.el (wl-summary-burst-subr): Disable multibyte characters
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 141ba8e..ccab50d 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2518,7 +2518,7 @@ ex.
 			       (string :tag "Folder"))))
   :group 'wl-folder)
 
-(defcustom wl-folder-hierarchy-access-folders '("^-[^\\.]*\\(:\\|@\\|$\\)"
+(defcustom wl-folder-hierarchy-access-folders '("^-[^.]*\\(:\\|@\\|$\\)"
 						"^@$" "^'$")
   "*Access group REGEXPs to make hierarchy structure."
   :type '(repeat (string :tag "Regexp"))