From dd58a686506efe5a815078fb25133b774e176577 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 12 Mar 2008 13:06:58 +0000 Subject: [PATCH] (message-ignored-resent-headers): Add "Delivered-To". --- lisp/gnus/ChangeLog | 10 +++++++--- lisp/gnus/message.el | 8 +++++++- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index afc9d768143..3b71ec87101 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,7 +1,11 @@ +2008-03-12 Stefan Monnier + + * message.el (message-ignored-resent-headers): Add "Delivered-To". + 2008-03-08 Reiner Steib - * 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 @@ -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 44c282bbd36..a46cb500ee5 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") -- 2.39.5