From: Richard Stallman Date: Wed, 21 Sep 2022 12:43:29 +0000 (-0400) Subject: Add more headers to default value of rmail-retry-ignored-headers. X-Git-Tag: emacs-29.0.90~1856^2~325 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13bd79e34fc6085410057f669cea435f2d1d046a;p=emacs.git Add more headers to default value of rmail-retry-ignored-headers. * rmail.el (rmail-retry-ignored-headers): Add more headers to default. Don't bother with `purecopy'. Split value readably. --- diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index fed0a2057bc..9cc097d28dd 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -372,11 +372,17 @@ If nil, display all header fields except those matched by :group 'rmail-headers) ;;;###autoload -(defcustom rmail-retry-ignored-headers (purecopy "^x-authentication-warning:\\|^x-detected-operating-system:\\|^x-spam[-a-z]*:\\|content-type:\\|content-transfer-encoding:\\|mime-version:\\|message-id:") +(defcustom rmail-retry-ignored-headers + (concat "^x-authentication-warning:\\|^x-detected-operating-system:\\|" + "^x-spam[-a-z]*:\\|^arc-.*:\\|" + "^content-type:\\|^content-transfer-encoding:\\|" + "^mime-version:\\|^message-id:\\|^x-google-smtp-source:\\|" + "^x-received:\\|^received-spf:\\|" + "^authentication-results:\\|^dkim-signature:") "Headers that should be stripped when retrying a failed message." :type '(choice regexp (const :value nil :tag "None")) :group 'rmail-headers - :version "23.2") ; added x-detected-operating-system, x-spam + :version "23.2") ;;;###autoload (defcustom rmail-highlighted-headers (purecopy "^From:\\|^Subject:")