From: Simon Josefsson <jas@extundo.com>
Date: Thu, 30 Sep 2004 20:36:08 +0000 (+0000)
Subject: (message-generate-hashcash): Add.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=62ac7a710ba47364384c389771a9d0012b44b278;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81a1f034b..78a72cc9e 100644
--- 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 a9012430f..62b9303a3 100644
--- 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...