From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 22 Sep 2022 11:56:31 +0000 (+0200)
Subject: Add X-Hashcash to the end of mail headers
X-Git-Tag: emacs-29.0.90~1856^2~315
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f43914b4d036ada1842e533cda34bc4379f47a26;p=emacs.git

Add X-Hashcash to the end of mail headers

* lisp/mail/hashcash.el (mail-add-payment): Move headers to the end of
the headers.
---

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"