From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Fri, 10 Nov 2023 16:35:04 +0000 (+0100)
Subject: Add some headers to message-ignored-bounced-headers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02f57d0e1596d569292a1edd6b6cbabb2992a95a;p=emacs.git

Add some headers to message-ignored-bounced-headers

* lisp/gnus/message.el (message-ignored-bounced-headers): These are
headers that a) are derived from the exact text of the message and
thus are now invalid and b) either will be automatically regenerated
when the message is sent or shouldn't be present on the message copy
at all.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0f5d253bc96..9e60c21e3d4 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -154,7 +154,7 @@ If this variable is nil, no such courtesy message will be added."
   :type '(radio string (const nil)))
 
 (defcustom message-ignored-bounced-headers
-  "^\\(Received\\|Return-Path\\|Delivered-To\\):"
+  "^\\(Received\\|Return-Path\\|Delivered-To\\|DKIM-Signature\\|X-Hashcash\\):"
   "Regexp that matches headers to be removed in resent bounced mail."
   :group 'message-interface
   :type 'regexp)
@@ -9008,7 +9008,7 @@ to the E-mail."
           (message-goto-body)
           (dolist (body (cdr (assoc "body" args)))
 	    (insert body "\n")))
-      
+
       (setq need-body t))
     (if (assoc "subject" args)
 	(message-goto-body)