diff options
| author | Stefan Kangas | 2022-09-22 13:56:31 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-09-22 14:05:33 +0200 |
| commit | f43914b4d036ada1842e533cda34bc4379f47a26 (patch) | |
| tree | fc1a5014401cfed7b3d683e28071b02ee6441a88 | |
| parent | 5ee3990de69f95cd0e44a900b27a69f046a41c27 (diff) | |
| download | emacs-f43914b4d036ada1842e533cda34bc4379f47a26.tar.gz emacs-f43914b4d036ada1842e533cda34bc4379f47a26.zip | |
Add X-Hashcash to the end of mail headers
* lisp/mail/hashcash.el (mail-add-payment): Move headers to the end of
the headers.
| -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 | |||
| 308 | (save-excursion | 308 | (save-excursion |
| 309 | (save-restriction | 309 | (save-restriction |
| 310 | (message-narrow-to-headers) | 310 | (message-narrow-to-headers) |
| 311 | (goto-char (point-max)) | ||
| 311 | (let ((to (hashcash-strip-quoted-names (mail-fetch-field "To" nil t))) | 312 | (let ((to (hashcash-strip-quoted-names (mail-fetch-field "To" nil t))) |
| 312 | (cc (hashcash-strip-quoted-names (mail-fetch-field "Cc" nil t))) | 313 | (cc (hashcash-strip-quoted-names (mail-fetch-field "Cc" nil t))) |
| 313 | (ng (hashcash-strip-quoted-names (mail-fetch-field "Newsgroups" | 314 | (ng (hashcash-strip-quoted-names (mail-fetch-field "Newsgroups" |