From a4dae2c681f88caeaade7060fabfa9e82818a35a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 14 Aug 2002 02:29:17 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 9 +++++++++ lisp/message.el | 6 +++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd0cb8b..4b1c73f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2002-08-14 Katsumi Yamaoka + + * message.el (message-font-lock-keywords): Refer to the value for + `message-cite-prefix-regexp' dynamically. + +2002-08-13 Katsumi Yamaoka + + * gnus-art.el (gnus-decode-header-methods): Doc fix. + 2002-08-12 Simon Josefsson * imap.el (imap-shell-open): Allow non-list `imap-shell-program'. diff --git a/lisp/message.el b/lisp/message.el index e789a75..f43369d 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1219,7 +1219,11 @@ candidates: `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$") 1 'message-separator-face)) nil) - (,(concat "^\\(" message-cite-prefix-regexp "\\).*") + (,(lambda (limit) + (re-search-forward (concat "^\\(" + message-cite-prefix-regexp + "\\).*") + limit t)) (0 'message-cited-text-face)) (,mime-edit-tag-regexp (0 'message-mml-face)))) -- 1.7.10.4