(message-generate-hashcash): Add.

(message-send-mail): Use it, call mail-add-payment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81a1f03..78a72cc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-30  Simon Josefsson  <jas@extundo.com>
+
+       * message.el (message-generate-hashcash): Add.
+       (message-send-mail): Use it, call mail-add-payment.
+
 2004-09-29  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el (spam-verify-bogofilter): -V, not -sV option

diff --git a/lisp/message.el b/lisp/message.el
index a901243..62b9303 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1428,6 +1428,12 @@ no, only reply back to the author."
                 (const :tag "Never" nil)
                 (const :tag "Always" t)))
 
+(defcustom message-generate-hashcash nil
+  "*Whether to generate X-Hashcash: headers."
+  :group 'message-headers
+  :link '(custom-manual "(message)Mail Headers")
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar message-sending-message "Sending...")
@@ -3722,6 +3728,13 @@ not have PROP."
              (gnus-setup-posting-charset nil)
            message-posting-charset))
         (headers message-required-mail-headers))
+    (when message-generate-hashcash
+      (save-restriction
+       (message-narrow-to-headers)
+       (message-remove-header "X-Hashcash"))
+      (message "Generating hashcash...")
+      (mail-add-payment)
+      (message "Generating hashcash...done"))
     (save-restriction
       (message-narrow-to-headers)
       ;; Generate the Mail-Followup-To header if the header is not there...