Function: hashcash-insert-payment

hashcash-insert-payment is an autoloaded, interactive and byte-compiled function defined in hashcash.el.gz.

Signature

(hashcash-insert-payment ARG)

Documentation

Insert X-Payment and X-Hashcash headers with a payment for ARG.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/hashcash.el.gz
;;;###autoload
(defun hashcash-insert-payment (arg)
  "Insert X-Payment and X-Hashcash headers with a payment for ARG."
  (interactive "sPay to: ")
  (unless (hashcash-already-paid-p arg)
    (let ((pay (hashcash-generate-payment (hashcash-payment-to arg)
					  (hashcash-payment-required arg))))
      (when pay
	(insert-before-markers "X-Hashcash: " pay "\n")))))