From a188e316446f771a0900c8e05026e39b224eb0f9 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 17 May 2004 15:48:40 +0000 Subject: [PATCH] * wl-highlight.el (wl-highlight-message): Ignore white spaces at the beginning of field body (Thanks to Markus Knittig). --- wl/ChangeLog | 3 +++ wl/wl-highlight.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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) -- 1.7.10.4