From: yoichi <yoichi>
Date: Mon, 17 May 2004 15:48:40 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-message): Ignore white spaces
X-Git-Tag: wl-2_11_29~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a188e316446f771a0900c8e05026e39b224eb0f9;p=elisp%2Fwanderlust.git

* wl-highlight.el (wl-highlight-message): Ignore white spaces
at the beginning of field body (Thanks to Markus Knittig).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 08d4aac..fec674f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-05-18  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+	* wl-highlight.el (wl-highlight-message): Ignore white spaces
+	at the beginning of field body (Thanks to Markus Knittig).
+
 	* wl-draft.el (wl-draft-insert-current-message): Also check
 	summary buffer, remove unnecessary tag.
 
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index d3fbd44..fb28b67 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1172,7 +1172,7 @@ interpreted as cited text.)"
 	      (goto-char start)
 	      (while (and (not body-only)
 			  (not (eobp)))
-		(if (looking-at "^[^ \t\n:]+[ \t]*:")
+		(if (looking-at "^[^ \t\n:]+[ \t]*:[ \t]*")
 		    (progn
 		      (put-text-property (match-beginning 0) (match-end 0)
 					 'face 'wl-highlight-message-headers)