(message-send-mail): Use it, call mail-add-payment.
+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
2004-09-29 Teodor Zlatanov <tzz@lifelogs.com>
* spam.el (spam-verify-bogofilter): -V, not -sV option
(const :tag "Never" nil)
(const :tag "Always" t)))
(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...")
;;; Internal variables.
(defvar message-sending-message "Sending...")
(gnus-setup-posting-charset nil)
message-posting-charset))
(headers message-required-mail-headers))
(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...
(save-restriction
(message-narrow-to-headers)
;; Generate the Mail-Followup-To header if the header is not there...