From 52523b1af3faf3bf59b77feb8d6d1230c241558d Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 3 Apr 2004 01:49:12 +0000 Subject: [PATCH] * 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 412431d..8bed06a 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-04-02 Hiroya Murata * wl-spam.el (wl-message-check-spam): Fixed problem no display diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el index 2796e8d..d3fbd44 100644 --- a/wl/wl-highlight.el +++ b/wl/wl-highlight.el @@ -1162,7 +1162,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))) @@ -1196,7 +1196,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