diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-22 13:56:31 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-22 14:05:33 +0200 |
| commit | f43914b4d036ada1842e533cda34bc4379f47a26 (patch) | |
| tree | fc1a5014401cfed7b3d683e28071b02ee6441a88 /lisp/mail/hashcash.el | |
| parent | 5ee3990de69f95cd0e44a900b27a69f046a41c27 (diff) | |
| download | emacs-f43914b4d036ada1842e533cda34bc4379f47a26.tar.gz | |
Add X-Hashcash to the end of mail headers
* lisp/mail/hashcash.el (mail-add-payment): Move headers to the end of
the headers.
Diffstat (limited to 'lisp/mail/hashcash.el')
| -rw-r--r-- | lisp/mail/hashcash.el | 1 |
1 files changed, 1 insertions, 0 deletions
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" |