mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

Reverted wrong changes to rmail.el.

Browse Source
This commit is contained in:
Bastien Guerry 2008-02-12 07:13:29 +00:00
parent b96817c387
commit 926f559c27
1 changed files with 9 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/mail/rmail.el
View File

@ -345,19 +345,6 @@ See also `rmail-highlight-face'."
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 @@ The first parenthesized expression should match the MIME-charset name.")
"\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 "0-9_.@-`'\"")))
(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 @@ The first parenthesized expression should match the MIME-charset name.")
(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.