From 3f2f60a040b29d5e366f8db59c3c582fd1f4f8ee Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 30 Oct 2000 10:39:21 +0000 Subject: [PATCH] * 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/ChangeLog | 4 ++++ wl/wl-highlight.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 + * 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) -- 1.7.10.4