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 626949b663229c5a41b26b6ee8bf41258ba4e7b7..5136e11c8990dc39376d0469632616cbf01dd270 100644 (file)
--- 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"