From f43914b4d036ada1842e533cda34bc4379f47a26 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 22 Sep 2022 13:56:31 +0200 Subject: [PATCH] Add X-Hashcash to the end of mail headers * lisp/mail/hashcash.el (mail-add-payment): Move headers to the end of the headers. --- lisp/mail/hashcash.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 626949b6632..5136e11c899 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -308,6 +308,7 @@ Set ASYNC to t to start asynchronous calculation. (See (save-excursion (save-restriction (message-narrow-to-headers) + (goto-char (point-max)) (let ((to (hashcash-strip-quoted-names (mail-fetch-field "To" nil t))) (cc (hashcash-strip-quoted-names (mail-fetch-field "Cc" nil t))) (ng (hashcash-strip-quoted-names (mail-fetch-field "Newsgroups" -- 2.39.2