# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1205327218 0
# Node ID 6984a176570c688ef62d5bd0a72dc7757e194dce
# Parent  3bef33921e015e0404e262a330b13b526e6e447a
(message-ignored-resent-headers): Add "Delivered-To".

diff -r 3bef33921e01 -r 6984a176570c lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Mar 12 12:05:30 2008 +0000
+++ b/lisp/gnus/ChangeLog	Wed Mar 12 13:06:58 2008 +0000
@@ -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 -r 3bef33921e01 -r 6984a176570c lisp/gnus/message.el
--- a/lisp/gnus/message.el	Wed Mar 12 12:05:30 2008 +0000
+++ b/lisp/gnus/message.el	Wed Mar 12 13:06:58 2008 +0000
@@ -561,7 +561,13 @@
   :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")