Function: hashcash-already-paid-p

hashcash-already-paid-p is a byte-compiled function defined in hashcash.el.gz.

Signature

(hashcash-already-paid-p RECIPIENT)

Documentation

Check for hashcash token to RECIPIENT in current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/hashcash.el.gz
(defun hashcash-already-paid-p (recipient)
  "Check for hashcash token to RECIPIENT in current buffer."
  (save-excursion
    (save-restriction
      (message-narrow-to-headers-or-head)
      (let ((token (message-fetch-field "x-hashcash"))
	    (case-fold-search t))
	(and (stringp token)
	     (string-match (regexp-quote recipient) token))))))