diff options
author | Glenn Morris <[email protected]> | 2009-03-02 07:36:03 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2009-03-02 07:36:03 +0000 |
commit | 925d6582779478f2dc56406d050dccdc09fa89dd (patch) | |
tree | 41fbbc86502a58dd55ef52804950ed7b9f9fb91a /lisp/mail/rmail.el | |
parent | c9a81e054f6aa94770935bcf1fedc9a910eeac5d (diff) |
(rmail-retry-failure): Use rmail-get-header rather than a magical
save-excursion/restriction combination that does nothing.
Diffstat (limited to 'lisp/mail/rmail.el')
-rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 8006fcdada..30cd9c092f 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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)) |