mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(rmail-retry-ignored-headers): Add usual mime headers.

Browse Source 
(rmail-retry-failure): Undo previous change.
This commit is contained in:
Richard M. Stallman 2009-03-18 21:47:23 +00:00
parent 78e7d1fe15
commit b6de883825
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-03-18 Richard M Stallman <rms@gnu.org>
* mail/rmail.el (rmail-retry-ignored-headers): Add usual mime headers.
(rmail-retry-failure): Undo previous change.
2009-03-18 Kenichi Handa <handa@m17n.org>
* international/mule.el (after-insert-file-set-coding):

3
lisp/mail/rmail.el
View File

@ -371,7 +371,7 @@ If nil, display all header fields except those matched by
:group 'rmail-headers)
;;;###autoload
(defcustom rmail-retry-ignored-headers "^x-authentication-warning:"
(defcustom rmail-retry-ignored-headers "^x-authentication-warning:\\|content-type:\\|content-transfer-encoding:\\|mime-version:"
"Headers that should be stripped when retrying a failed message."
:type '(choice regexp (const nil :tag "None"))
:group 'rmail-headers)
@ -3762,7 +3762,6 @@ specifying headers which should not be copied into the new message."
(mail-sendmail-delimit-header)
(save-restriction
(narrow-to-region (point-min) (mail-header-end))
(rmail-delete-headers rmail-ignored-headers)
(rmail-delete-headers rmail-retry-ignored-headers)
(rmail-delete-headers "^\\(sender\\|return-path\\|received\\):")
(setq resending (mail-fetch-field "resent-to"))