From 80fca15101fc8ebe9625839b7c622a009330135a Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 15 May 2004 22:28:59 +0000 Subject: [PATCH] Backport change: 2004-04-03 Colin Rafferty * wl-highlight.el (wl-highlight-message): Change to strict regexp for the separator line and quote mail-header-separator. --- wl/ChangeLog | 5 +++++ wl/wl-highlight.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 26f7ef1..59d3855 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-04-03 Colin Rafferty + + * wl-highlight.el (wl-highlight-message): Change to strict regexp + for the separator line and quote mail-header-separator. + 2004-01-01 TAKAHASHI Kaoru * wl-demo.el (wl-demo-copyright-notice): Add 2004. diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el index eea611c..e4fde9d 100644 --- a/wl/wl-highlight.el +++ b/wl/wl-highlight.el @@ -1122,7 +1122,7 @@ interpreted as cited text.)" ;; If this search fails then the narrowing performed above ;; is sufficient (if (re-search-forward (format - "^$\\|%s" + "^\\(%s\\)?$" (regexp-quote mail-header-separator)) nil t) (narrow-to-region (point-min) (match-beginning 0))) @@ -1158,7 +1158,7 @@ interpreted as cited text.)" (let (prefix prefix-face-alist pair end) (while (not (eobp)) (cond - ((looking-at mail-header-separator) + ((looking-at (concat "^" (regexp-quote mail-header-separator) "$")) (put-text-property (match-beginning 0) (match-end 0) 'face 'wl-highlight-header-separator-face) (goto-char (match-end 0))) -- 1.7.10.4