From: okazaki <okazaki>
Date: Wed, 13 Feb 2008 04:11:04 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-folder-opened-regexp)
X-Git-Tag: wl-2_15_6-fixes~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=34d4fa389999c8b1676ce0e0b10756daaac39639;p=elisp%2Fwanderlust.git

* wl-highlight.el (wl-highlight-folder-opened-regexp)
(wl-highlight-folder-closed-regexp): Include the beginning of a line.

* wl-folder.el (wl-folder-group-regexp): Remove a redundant character in
the character alternative.
---

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 8b8eb02..64c2b09 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -77,7 +77,7 @@
 (make-variable-buffer-local 'wl-folder-buffer-cur-point)
 
 (defconst wl-folder-entity-regexp "^\\([ ]*\\)\\(\\[[\\+-]\\]\\)?\\([^\\[].+\\):[-*0-9]+/[-*0-9]+/[-*0-9]+")
-(defconst wl-folder-group-regexp  "^\\([ ]*\\)\\[\\([\\+-]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+\n")
+(defconst wl-folder-group-regexp  "^\\([ ]*\\)\\[\\([\\+-]\\)\\]\\(.+\\):[0-9-]+/[0-9-]+/[0-9-]+\n")
 ;;				1:indent 2:opened 3:group-name
 (defconst wl-folder-unsync-regexp ":[^0\\*][0-9]*/[0-9\\*-]+/[0-9\\*-]+$")
 
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 2c2dba4..0476c58 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -795,8 +795,8 @@
   :group 'wl-message-faces
   :group 'wl-faces)
 
-(defvar wl-highlight-folder-opened-regexp " *\\(\\[\\-\\]\\)")
-(defvar wl-highlight-folder-closed-regexp " *\\(\\[\\+\\]\\)")
+(defvar wl-highlight-folder-opened-regexp "^ *\\(\\[\\-\\]\\)")
+(defvar wl-highlight-folder-closed-regexp "^ *\\(\\[\\+\\]\\)")
 (defvar wl-highlight-folder-leaf-regexp "[ ]*\\([-%\\+]\\)\\(.*\\):.*$")
 
 (defvar wl-highlight-citation-face-list