[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:13:29 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Bastien Guerry <bastien1> 08/02/12 07:13:29
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.449
retrieving revision 1.450
diff -u -b -r1.449 -r1.450
--- rmail.el 12 Feb 2008 07:10:49 -0000 1.449
+++ rmail.el 12 Feb 2008 07:13:29 -0000 1.450
@@ -345,19 +345,6 @@
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."
@@ -711,19 +698,19 @@
"\n"))
nil)
-(setq rmail-font-lock-keywords
+(defvar 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\\):"
- . 'rmail-header-name)
- '("^Reply-To:.*$" . 'rmail-header-name)
- '("^Subject:" . 'rmail-header-name)
- '("^X-Spam-Status:" . 'rmail-header-name)
+ . font-lock-function-name-face)
+ '("^Reply-To:.*$" . font-lock-function-name-face)
+ '("^Subject:" . font-lock-comment-face)
+ '("^X-Spam-Status:" . font-lock-keyword-face)
'("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
- . 'rmail-header-name)
+ . font-lock-keyword-face)
;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
`(,cite-chars
(,(concat "\\=[ \t]*"
@@ -734,9 +721,8 @@
(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]+.*\\)*$"
- . 'rmail-header-name))))
-;;)
-;; "Additional expressions to highlight in Rmail mode.")
+ . font-lock-string-face))))
+ "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, 2008/02/12
- [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/13
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail.el,v, Glenn Morris, 2008/02/20