Mercurial > emacs
changeset 102356:fd6b5c8dd39b
(rmail-retry-failure): Use rmail-get-header rather than a magical
save-excursion/restriction combination that does nothing.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 02 Mar 2009 07:36:03 +0000 |
| parents | 5d529b1750d2 |
| children | 965102fa40ea |
| files | lisp/ChangeLog lisp/mail/rmail.el |
| diffstat | 2 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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))