From 4ad1654a908f42b824ec247308902814c7e30288 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 15 Mar 2009 21:09:30 +0000 Subject: [PATCH] (rmail-font-lock-keywords): Treat "Mail-Reply-To" like "Reply-To". --- lisp/ChangeLog | 9 +++++++++ lisp/mail/rmail.el | 3 ++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b0cc2bc7e6f..d9a3375ec25 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2009-03-15 Glenn Morris + + * mail/sendmail.el (mail-yank-prefix): Doc fix. + (mail-mode-map): Only enable the "Cite Original" menu-item when + appropriate. Standardize the text used for other headers re hyphens. + + * mail/rmail.el (rmail-font-lock-keywords): Treat "Mail-Reply-To" + like "Reply-To". + 2009-03-15 Chong Yidong * minibuffer.el (completion-styles): Add emacs22 completion style diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index af18db931e6..3396d110752 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -771,7 +771,8 @@ that knows the exact ordering of the \\( \\) subexpressions.") (cite-suffix (concat cite-prefix "0-9_.@-`'\""))) (list '("^\\(From\\|Sender\\|Resent-From\\):" . 'rmail-header-name) - '("^Reply-To:.*$" . 'rmail-header-name) + '("^\\(Mail-\\)?Reply-To:.*$" . 'rmail-header-name) + ;; FIXME Mail-Followup-To should probably be here too. '("^Subject:" . 'rmail-header-name) '("^X-Spam-Status:" . 'rmail-header-name) '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" -- 2.39.5