Commit 926f559c authored by Bastien Guerry's avatar Bastien Guerry
Browse files

Reverted wrong changes to rmail.el.

parent b96817c3
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment