diff options
| author | Glenn Morris | 2009-03-02 07:36:03 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-03-02 07:36:03 +0000 |
| commit | 925d6582779478f2dc56406d050dccdc09fa89dd (patch) | |
| tree | 41fbbc86502a58dd55ef52804950ed7b9f9fb91a /lisp/mail | |
| parent | c9a81e054f6aa94770935bcf1fedc9a910eeac5d (diff) | |
| download | emacs-925d6582779478f2dc56406d050dccdc09fa89dd.tar.gz emacs-925d6582779478f2dc56406d050dccdc09fa89dd.zip | |
(rmail-retry-failure): Use rmail-get-header rather than a magical
save-excursion/restriction combination that does nothing.
Diffstat (limited to 'lisp/mail')
| -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 8006fcdadaf..30cd9c092ff 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." | |||
| 3640 | (let ((rmail-this-buffer (current-buffer)) | 3640 | (let ((rmail-this-buffer (current-buffer)) |
| 3641 | (msgnum rmail-current-message) | 3641 | (msgnum rmail-current-message) |
| 3642 | bounce-start bounce-end bounce-indent resending | 3642 | bounce-start bounce-end bounce-indent resending |
| 3643 | ;; Fetch any content-type header in current message | 3643 | (content-type (rmail-get-header "Content-Type"))) |
| 3644 | ;; Must search thru the whole unpruned header. | ||
| 3645 | (content-type | ||
| 3646 | (save-excursion | ||
| 3647 | (save-restriction | ||
| 3648 | (mail-fetch-field "Content-Type") )))) | ||
| 3649 | (save-excursion | 3644 | (save-excursion |
| 3650 | (goto-char (point-min)) | 3645 | (goto-char (point-min)) |
| 3651 | (let ((case-fold-search t)) | 3646 | (let ((case-fold-search t)) |