[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f43914b4d0 2/3: Add X-Hashcash to the end of mail headers
|
From: |
Stefan Kangas |
|
Subject: |
master f43914b4d0 2/3: Add X-Hashcash to the end of mail headers |
|
Date: |
Thu, 22 Sep 2022 08:21:33 -0400 (EDT) |
branch: master
commit f43914b4d036ada1842e533cda34bc4379f47a26
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
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 626949b663..5136e11c89 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"