From: yamaoka Date: Wed, 14 Aug 2002 02:29:17 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_8-01-quimby~38 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a4dae2c681f88caeaade7060fabfa9e82818a35a;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- 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))))