Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(rmail-retry-failure): Use rmail-get-header rather than a magical

Browse source 
save-excursion/restriction combination that does nothing.
This commit is contained in:
Glenn Morris 2009-03-02 07:36:03 +00:00
parent c9a81e054f
commit 925d658277
2 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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>

7
lisp/mail/rmail.el
View file

@ -3640,12 +3640,7 @@ specifying headers which should not be copied into the new message."
(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))