diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 8 |
2 files changed, 14 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index afc9d76814..3b71ec8710 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,7 +1,11 @@ +2008-03-12 Stefan Monnier <[email protected]> + + * message.el (message-ignored-resent-headers): Add "Delivered-To". + 2008-03-08 Reiner Steib <[email protected]> - * mail-source.el (mail-source-delete-old-incoming-confirm): Change - default to nil. + * mail-source.el (mail-source-delete-old-incoming-confirm): + Change default to nil. (mail-source-delete-old-incoming): Make confirmation prompt more clear. 2008-03-07 Katsumi Yamaoka <[email protected]> @@ -31,7 +35,7 @@ * gnus-registry.el (gnus-registry-install): Allow 'ask as an option. (gnus-registry-initialize, gnus-registry-install-p): Use it. - (gnus-registry-install-shortcuts): Renamed from + (gnus-registry-install-shortcuts): Rename from gnus-registry-install-shortcuts-and-menus. Installs the shortcuts in the `gnus-registry-mark-map' keymap dynamically from `gnus-registry-marks'. The generated functions update the summary line diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 44c282bbd3..a46cb500ee 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -561,7 +561,13 @@ Done before generating the new subject of a forward." :link '(custom-manual "(message)Forwarding") :type 'boolean) -(defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From " +(defcustom message-ignored-resent-headers + ;; `Delivered-To' needs to be removed because some mailers use it to + ;; detect loops, so if you resend a message to an address that ultimately + ;; comes back to you (e.g. a mailing-list to which you subscribe, in which + ;; case you may be removed from the list on the grounds that mail to you + ;; bounced with a "mailing loop" error). + "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From \\|^Delivered-To:" "*All headers that match this regexp will be deleted when resending a message." :group 'message-interface :link '(custom-manual "(message)Resending") |