[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Richard M . Stallman]

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.")