Mercurial > emacs
changeset 17164:024399a1b442
Tweak font-lock-keywords
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Sat, 15 Mar 1997 13:26:59 +0000 |
| parents | a63a326604ae |
| children | f36d8f965ab5 |
| files | lisp/mail/rmail.el lisp/mail/sendmail.el |
| diffstat | 2 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sat Mar 15 13:23:49 1997 +0000 +++ b/lisp/mail/rmail.el Sat Mar 15 13:26:59 1997 +0000 @@ -188,14 +188,17 @@ (list '("^\\(From\\|Sender\\):" . font-lock-function-name-face) '("^Reply-To:.*$" . font-lock-function-name-face) '("^Subject:" . font-lock-comment-face) - '("^\\(To\\|Apparently-To\\|Cc\\):" . font-lock-keyword-face) + '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" + . font-lock-keyword-face) ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. `(,cite-chars (,(concat "\\=[ \t]*" - "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" - cite-chars ".*") + "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" + "\\(" cite-chars "[ \t]*\\)\\)+" + "\\(.*\\)") (beginning-of-line) (end-of-line) - (0 font-lock-reference-face))) + (2 font-lock-reference-face nil t) + (4 font-lock-comment-face nil t))) '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" . font-lock-string-face)))) "Additional expressions to highlight in Rmail mode.")
--- a/lisp/mail/sendmail.el Sat Mar 15 13:23:49 1997 +0000 +++ b/lisp/mail/sendmail.el Sat Mar 15 13:26:59 1997 +0000 @@ -215,20 +215,23 @@ (let* ((cite-chars "[>|}]") (cite-prefix "A-Za-z") (cite-suffix (concat cite-prefix "0-9_.@-`'\""))) - (list '("^To:" . font-lock-function-name-face) - '("^B?CC:\\|^Reply-to:" . font-lock-keyword-face) + (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face) + '("^\\(B?CC\\|Reply-to\\):" . font-lock-keyword-face) '("^\\(Subject:\\)[ \t]*\\(.+\\)?" (1 font-lock-comment-face) (2 font-lock-type-face nil t)) ;; Use EVAL to delay in case `mail-header-separator' gets changed. - '(eval cons (concat "^" (regexp-quote mail-header-separator) "$") - 'font-lock-comment-face) + '(eval . + (cons (concat "^" (regexp-quote mail-header-separator) "$") + 'font-lock-warning-face)) ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. `(,cite-chars (,(concat "\\=[ \t]*" - "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" - cite-chars ".*") + "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" + "\\(" cite-chars "[ \t]*\\)\\)+" + "\\(.*\\)") (beginning-of-line) (end-of-line) - (0 font-lock-reference-face))) + (2 font-lock-reference-face nil t) + (4 font-lock-comment-face nil t))) '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" . font-lock-string-face)))) "Additional expressions to highlight in Mail mode.")