From e68b1cf16eda60bb58c1e0ad2038e4f24dc1f513 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 Jan 2003 01:08:31 +0000 Subject: [PATCH] (rmail-font-lock-keywords): Discard code to match both cases. (rmail-variables): Specify case-insensitive matching for font-lock. (rmail-font-lock-keywords): Match multiline In-Reply-To and X-*. --- lisp/mail/rmail.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index f7e10f15549..7e7c7c9c1e1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -544,11 +544,13 @@ The first parenthesized expression should match the MIME-charset name.") nil) (defvar rmail-font-lock-keywords + ;; These are all matched case-insensitively. (eval-when-compile (let* ((cite-chars "[>|}]") - (cite-prefix "A-Za-z") + (cite-prefix "a-z") (cite-suffix (concat cite-prefix "0-9_.@-`'\""))) - (list '("^\\(From\\|Sender\\|Resent-[Ff]rom\\):" . font-lock-function-name-face) + (list '("^\\(From\\|Sender\\|Resent-From\\):" + . font-lock-function-name-face) '("^Reply-To:.*$" . font-lock-function-name-face) '("^Subject:" . font-lock-comment-face) '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" @@ -562,7 +564,7 @@ The first parenthesized expression should match the MIME-charset name.") (beginning-of-line) (end-of-line) (2 font-lock-constant-face nil t) (4 font-lock-comment-face nil t))) - '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" + '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$" . font-lock-string-face)))) "Additional expressions to highlight in Rmail mode.") @@ -1123,7 +1125,7 @@ Instead, these commands are available: (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '(rmail-font-lock-keywords - t nil nil nil + t t nil nil (font-lock-maximum-size . nil) (font-lock-fontify-buffer-function . rmail-fontify-buffer-function) (font-lock-unfontify-buffer-function . rmail-unfontify-buffer-function) -- 2.39.2