mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(mail-font-lock-keywords): New variable.

Browse source 
(mail-mode): Set font-lock-keywords locally.
This commit is contained in:
Richard M. Stallman 1994-10-07 10:00:00 +00:00
parent a95caeed52
commit 8b1f1a0c15
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/mail/sendmail.el
View file

@ -159,11 +159,22 @@ actually occur.")
(defvar mail-mode-syntax-table nil
"Syntax table used while in mail mode.")
(if (null mail-mode-syntax-table)
(if (not mail-mode-syntax-table)
(progn
(setq mail-mode-syntax-table (copy-syntax-table text-mode-syntax-table))
(modify-syntax-entry ?% ". " mail-mode-syntax-table)))
(defvar mail-font-lock-keywords
(list '("^To:" . font-lock-function-name-face)
'("^B?CC:\\|^Reply-To:" . font-lock-keyword-face)
'("^Subject:" . font-lock-comment-face)
'("^Subject:\\s *\\(.+\\)$" 1 font-lock-type-face)
(list (concat "^\\(" mail-header-separator "\\)$") 1
'font-lock-comment-face)
'("^[ \t]*\\sw*[>|}].*$" . font-lock-reference-face) ; Citation.
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*$" . font-lock-string-face))
"Additional expressions to highlight in Mail mode.")
(defvar mail-send-hook nil
"Normal hook run before sending mail, in Mail mode.")
@ -253,6 +264,8 @@ C-c C-v mail-sent-via (add a sent-via field for each To or CC)."
(setq major-mode 'mail-mode)
(setq mode-name "Mail")
(setq buffer-offer-save t)
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords mail-font-lock-keywords)
(make-local-variable 'paragraph-separate)
(make-local-variable 'paragraph-start)
(setq paragraph-start (concat "^" mail-header-separator