changeset 49064:d9fb715ab692

(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-*.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 Jan 2003 01:08:31 +0000
parents aed65d90301e
children 265dc22fb2c0
files lisp/mail/rmail.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Mon Jan 06 01:07:14 2003 +0000
+++ b/lisp/mail/rmail.el	Mon Jan 06 01:08:31 2003 +0000
@@ -544,11 +544,13 @@
   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 @@
 	       (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 @@
   (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)