From: yamaoka Date: Tue, 10 Jul 2001 12:55:07 +0000 (+0000) Subject: * message.el (message-font-lock-keywords-2): Move definitions for cited X-Git-Tag: t-gnus-6_15_3-03~3 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fd230b1f4f5292273a83c1be1e8df1ce9049b850;p=elisp%2Fgnus.git- * message.el (message-font-lock-keywords-2): Move definitions for cited texts and mml tags to `message-font-lock-keywords-1'. --- diff --git a/ChangeLog b/ChangeLog index 5b6351a..bdf8434 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-07-10 Katsumi Yamaoka + + * lisp/message.el (message-font-lock-keywords-2): Move definitions + for cited texts and mml tags to `message-font-lock-keywords-1'. + 2001-07-09 Katsumi Yamaoka * lisp/dgnushack.el: Add the parent directory of the directory diff --git a/lisp/message.el b/lisp/message.el index ee08f7b..9f62b75 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1235,20 +1235,22 @@ See also the documentations for the following variables: (not (equal mail-header-separator ""))) `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$") 1 'message-separator-face)) - nil)))) + nil) + (,(concat "^\\(" message-cite-prefix-regexp "\\).*") + (0 'message-cited-text-face)) + ("<#/?\\(multipart\\|part\\|external\\|mml\\).*>" + (0 'message-mml-face)))) + "Additional expressions to highlight in Message mode.") (defvar message-font-lock-keywords-2 (append message-font-lock-keywords-1 `((message-font-lock-cited-text-matcher (1 'message-cited-text-face) - (2 'message-cited-text-face)) - (,(concat "^\\(" message-cite-prefix-regexp "\\).*") - (0 'message-cited-text-face)) - ("<#/?\\(multipart\\|part\\|external\\|mml\\).*>" - (0 'message-mml-face))))) + (2 'message-cited-text-face)))) + "Auxiliary expressions to highlight in Message mode.") (defvar message-font-lock-keywords message-font-lock-keywords-2 - "Additional expressions to highlight in Message mode.") + "Default expressions to highlight in Message mode.") ;; XEmacs does it like this. For Emacs, we have to set the ;; `font-lock-defaults' buffer-local variable.