From 02f57d0e1596d569292a1edd6b6cbabb2992a95a Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Fri, 10 Nov 2023 17:35:04 +0100 Subject: [PATCH] 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. --- lisp/gnus/message.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2