Add X-Hashcash to the end of mail headers

* lisp/mail/hashcash.el (mail-add-payment): Move headers to the end of
the headers.
This commit is contained in:
Stefan Kangas 2022-09-22 13:56:31 +02:00
parent 5ee3990de6
commit f43914b4d0

View file

@ -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"