[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v
From: |
Bastien Guerry |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v |
Date: |
Tue, 12 Feb 2008 07:10:51 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Bastien Guerry <bastien1> 08/02/12 07:10:49
Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.448
retrieving revision 1.449
diff -u -b -r1.448 -r1.449
--- mail/rmail.el 10 Feb 2008 22:10:09 -0000 1.448
+++ mail/rmail.el 12 Feb 2008 07:10:49 -0000 1.449
@@ -345,6 +345,19 @@
face)
:group 'rmail-headers)
+(defface rmail-header-name
+ '((t (:inherit font-lock-function-name-face)))
+ "Face to use for highlighting the header names."
+ :group 'rmail-headers
+ :version "23.1")
+
+;;;###autoload
+(defcustom rmail-header-name-face 'rmail-header-name "\
+*Face to use for highlighting the header names."
+ :type '(choice (const :tag "Default" nil)
+ face)
+ :group 'rmail-headers)
+
;;;###autoload
(defcustom rmail-delete-after-output nil "\
*Non-nil means automatically delete a message that is copied to a file."
@@ -698,19 +711,19 @@
"\n"))
nil)
-(defvar rmail-font-lock-keywords
+(setq rmail-font-lock-keywords
;; These are all matched case-insensitively.
- (eval-when-compile
+ ;;(eval-when-compile
(let* ((cite-chars "[>|}]")
(cite-prefix "a-z")
(cite-suffix (concat cite-prefix "address@hidden'\"")))
(list '("^\\(From\\|Sender\\|Resent-From\\):"
- . font-lock-function-name-face)
- '("^Reply-To:.*$" . font-lock-function-name-face)
- '("^Subject:" . font-lock-comment-face)
- '("^X-Spam-Status:" . font-lock-keyword-face)
+ . 'rmail-header-name)
+ '("^Reply-To:.*$" . 'rmail-header-name)
+ '("^Subject:" . 'rmail-header-name)
+ '("^X-Spam-Status:" . 'rmail-header-name)
'("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
- . font-lock-keyword-face)
+ . 'rmail-header-name)
;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
`(,cite-chars
(,(concat "\\=[ \t]*"
@@ -721,8 +734,9 @@
(1 font-lock-comment-delimiter-face nil t)
(5 font-lock-comment-face nil t)))
'("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
- . font-lock-string-face))))
- "Additional expressions to highlight in Rmail mode.")
+ . 'rmail-header-name))))
+;;)
+;; "Additional expressions to highlight in Rmail mode.")
;; Perform BODY in the summary buffer
;; in such a way that its cursor is properly updated in its own window.
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v, Miles Bader, 2008/02/01
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v, Bastien Guerry, 2008/02/10
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v,
Bastien Guerry <=
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v, Bastien Guerry, 2008/02/12
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v, Bastien Guerry, 2008/02/13
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v, Glenn Morris, 2008/02/20