From: yoichi <yoichi>
Date: Sat, 3 Apr 2004 01:49:12 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-message): Change to strict regexp
X-Git-Tag: wl-2_11_25~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=52523b1af3faf3bf59b77feb8d6d1230c241558d;p=elisp%2Fwanderlust.git

* wl-highlight.el (wl-highlight-message): Change to strict regexp
for the separator line and quote mail-header-separator.
---

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  <colin.rafferty@morganstanley.com>
+
+	* wl-highlight.el (wl-highlight-message): Change to strict regexp
+	for the separator line and quote mail-header-separator.
+
 2004-04-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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)))