From 4f5e83ed4a9b1f5a16876b96c0e87d12a532a7f2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 5 Sep 2001 23:39:36 +0000 Subject: [PATCH] * wl-xmas.el (wl-highlight-folder-current-line): Use Perl style shy-groups for regexp. --- wl/ChangeLog | 3 +++ wl/wl-xmas.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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 -- 1.7.10.4