From: yamaoka <yamaoka>
Date: Wed, 5 Sep 2001 23:39:36 +0000 (+0000)
Subject: * wl-xmas.el (wl-highlight-folder-current-line): Use Perl style shy-groups
X-Git-Tag: wl-2_7_4~41
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4f5e83ed4a9b1f5a16876b96c0e87d12a532a7f2;p=elisp%2Fwanderlust.git

* wl-xmas.el (wl-highlight-folder-current-line): Use Perl style shy-groups
 for regexp.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e69a7e5..5180e52 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* wl-xmas.el (wl-highlight-folder-current-line): Use Perl style
+	shy-groups for regexp.
+
 	* wl-e21.el (wl-highlight-folder-current-line): Use Posix style
 	character classes and Perl style shy-groups for regexp.
 	(wl-highlight-plugged-current-line): Use Posix style character
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 68eeb09..3b5e3bc 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -290,7 +290,7 @@
 	    (when wl-use-highlight-mouse-line
 	      (put-text-property start end 'mouse-face 'highlight))
 	    (let ((text-face
-		   (if (looking-at (format "^[ \t]*\\(%s\\|%s\\)"
+		   (if (looking-at (format "^[ \t]*\\(?:%s\\|%s\\)"
 					   wl-folder-unsubscribe-mark
 					   wl-folder-removed-mark))
 		       'wl-highlight-folder-killed-face