[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 02f57d0e159: Add some headers to message-ignored-bounced-headers
From: |
Eric Abrahamsen |
Subject: |
master 02f57d0e159: Add some headers to message-ignored-bounced-headers |
Date: |
Fri, 10 Nov 2023 11:37:25 -0500 (EST) |
branch: master
commit 02f57d0e1596d569292a1edd6b6cbabb2992a95a
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 02f57d0e159: Add some headers to message-ignored-bounced-headers,
Eric Abrahamsen <=