[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el |
Date: |
Sun, 17 Apr 2005 11:54:45 -0400 |
Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.279 emacs/lisp/mail/sendmail.el:1.280
*** emacs/lisp/mail/sendmail.el:1.279 Fri Mar 18 00:08:24 2005
--- emacs/lisp/mail/sendmail.el Sun Apr 17 15:54:45 2005
***************
*** 366,372 ****
(list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
'("^\\(B?CC\\|Reply-to\\|Mail-\\(reply\\|followup\\)-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 .
(let ((separator (if (zerop (length mail-header-separator))
--- 366,374 ----
(list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
'("^\\(B?CC\\|Reply-to\\|Mail-\\(reply\\|followup\\)-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 .
(let ((separator (if (zerop (length mail-header-separator))
***************
*** 380,387 ****
"\\(" cite-chars "[ \t]*\\)\\)+"
"\\(.*\\)")
(beginning-of-line) (end-of-line)
! (2 font-lock-constant-face nil t)
! (4 font-lock-comment-face nil t)))
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
. font-lock-string-face))))
"Additional expressions to highlight in Mail mode.")
--- 382,388 ----
"\\(" cite-chars "[ \t]*\\)\\)+"
"\\(.*\\)")
(beginning-of-line) (end-of-line)
! (3 font-lock-comment-face nil t)))
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
. font-lock-string-face))))
"Additional expressions to highlight in Mail mode.")
- [Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el,
Richard M . Stallman <=