(rmail-font-lock-keywords): Treat "Mail-Reply-To" like "Reply-To".

4ad1654a · Glenn Morris · e009b596 · 4ad1654a · 4ad1654a
Commit 4ad1654a authored Mar 15, 2009 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +9 -0

lisp/mail/rmail.el lisp/mail/rmail.el +2 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2009-03-15  Glenn Morris  <rgm@gnu.org>
+
+	* 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  <cyd@stupidchicken.com>

 	* minibuffer.el (completion-styles): Add emacs22 completion style

--- 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\\):"