From: teranisi <teranisi>
Date: Mon, 30 Oct 2000 10:39:21 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-message): Fixed problem of
X-Git-Tag: wl-2_4-root~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f2f60a040b29d5e366f8db59c3c582fd1f4f8ee;p=elisp%2Fwanderlust.git

* wl-highlight.el (wl-highlight-message): Fixed problem of
highlighting failure which occured when the last field contains
multiple lines in the draft buffer.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a264200..a53fa33 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2000-10-30  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-highlight.el (wl-highlight-message): Fixed problem of
+	highlighting failure which occured when the last field contains
+	multiple lines in the draft buffer.
+
 	* wl.el (wl-toggle-plugged): Call `wl-biff-stop' if unplugged,
 	`wl-biff-start' if plugged.
 
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index b39de13..5b5732f 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1167,7 +1167,7 @@ interpreted as cited text.)"
 				    "^$\\|%s"
 				    (regexp-quote mail-header-separator))
 				   nil t)
-		(narrow-to-region (point-min) (point)))
+		(narrow-to-region (point-min) (match-beginning 0)))
 	    ;; highlight only when header is not too-big.
 	    (when (or (null wl-highlight-max-header-size)
 		      (< (point) wl-highlight-max-header-size))
@@ -1195,15 +1195,15 @@ interpreted as cited text.)"
 		    (put-text-property
 		     p hend 'face 'wl-highlight-message-header-contents)))
 		  (goto-char hend))
-		 ((looking-at mail-header-separator)
-		  (put-text-property (match-beginning 0) (match-end 0)
-				     'face 'wl-highlight-header-separator-face)
-		  (goto-char (match-end 0)))
 		 ;; ignore non-header field name lines
 		 (t (forward-line 1))))))
 	  (let (prefix prefix-face-alist pair end)
 	    (while (not (eobp))
 	      (cond
+	       ((looking-at mail-header-separator)
+		(put-text-property (match-beginning 0) (match-end 0)
+				   'face 'wl-highlight-header-separator-face)
+		(goto-char (match-end 0)))
 	       ((null wl-highlight-force-citation-header-regexp)
 		nil)
 	       ((looking-at wl-highlight-force-citation-header-regexp)