* 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 (file)
--- 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 (file)
--- 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