(message-ignored-resent-headers): Add "Delivered-To".

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index afc9d76..3b71ec8 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,7 +1,11 @@
+2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * message.el (message-ignored-resent-headers): Add "Delivered-To".
+
 2008-03-08  Reiner Steib  <Reiner.Steib@gmx.de>
 
-       * 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  <yamaoka@jpl.org>
@@ -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 44c282b..a46cb50 100644 (file)
--- 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")