diff options
author | Simon Marshall <simon@gnu.org> | 1996-01-25 10:27:33 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1996-01-25 10:27:33 +0000 |
commit | c4cf2b34cafd707ed62cbf49d5bde96b1b78a05f (patch) | |
tree | 0002a9ee2d2792a25b4d106b230406d3bc9af4f8 /lisp | |
parent | 5fbde20dff8e2ae4bf5c496e7dac57d6219a9fd5 (diff) | |
download | emacs-c4cf2b34cafd707ed62cbf49d5bde96b1b78a05f.tar.gz |
Use `eval' in mail-font-lock-keywords.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mail/sendmail.el | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 237b46294df..fc14657c39b 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -209,19 +209,20 @@ actually occur.") (modify-syntax-entry ?% ". " mail-mode-syntax-table))) (defvar mail-font-lock-keywords - (let* ((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) - '("^\\(Subject:\\)[ \t]*\\(.+\\)?" - (1 font-lock-comment-face) (2 font-lock-type-face nil t)) - (list (concat "^\\(" (regexp-quote mail-header-separator) "\\)$") - 1 'font-lock-comment-face) - (cons (concat "^[ \t]*" - "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" - "[>|}].*") - 'font-lock-reference-face) - '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" - . font-lock-string-face))) + (eval-when-compile + (let* ((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) + '("^\\(Subject:\\)[ \t]*\\(.+\\)?" + (1 font-lock-comment-face) (2 font-lock-type-face nil t)) + '(eval cons (concat "^" (regexp-quote mail-header-separator) "$") + 'font-lock-comment-face) + (cons (concat "^[ \t]*" + "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" + "[>|}].*") + 'font-lock-reference-face) + '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" + . font-lock-string-face)))) "Additional expressions to highlight in Mail mode.") (defvar mail-send-hook nil |