* 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 (file)
--- 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 (file)
--- 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)