# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1235979363 0
# Node ID fd6b5c8dd39b8b2c48df678907850e3a8fc9a969
# Parent  5d529b1750d22a262b27ccb2fc4aee0cabdbf0f2
(rmail-retry-failure): Use rmail-get-header rather than a magical
save-excursion/restriction combination that does nothing.

diff -r 5d529b1750d2 -r fd6b5c8dd39b lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Mar 02 07:23:57 2009 +0000
+++ b/lisp/ChangeLog	Mon Mar 02 07:36:03 2009 +0000
@@ -5,9 +5,11 @@
 
 	* mail/rmail.el (rmail-reply): Use rmail-apply-in-message so that this
 	function has access to all the headers, not just the visible ones.
+	Avoid extraneous leading whitespace in `References'.
 	(rmail-dont-reply-to-names, rmail-default-dont-reply-to-names):
 	Doc fixes.
-	(rmail-reply): Avoid extraneous leading whitespace.
+	(rmail-retry-failure): Use rmail-get-header rather than a magical
+	save-excursion/restriction combination that does nothing.
 
 2009-03-01  Chong Yidong  <cyd@stupidchicken.com>
 
diff -r 5d529b1750d2 -r fd6b5c8dd39b lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Mar 02 07:23:57 2009 +0000
+++ b/lisp/mail/rmail.el	Mon Mar 02 07:36:03 2009 +0000
@@ -3640,12 +3640,7 @@
   (let ((rmail-this-buffer (current-buffer))
 	(msgnum rmail-current-message)
 	bounce-start bounce-end bounce-indent resending
-	;; Fetch any content-type header in current message
-	;; Must search thru the whole unpruned header.
-	(content-type
-	 (save-excursion
-	   (save-restriction
-	     (mail-fetch-field "Content-Type") ))))
+	(content-type (rmail-get-header "Content-Type")))
     (save-excursion
       (goto-char (point-min))
       (let ((case-fold-search t))