Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : hashcash.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:21 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/hashcash.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`hashcash.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\204\n�\301\302M\210\303\304\305\306\307\310%\207" [fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) custom-declare-group hashcash nil "Hashcash configuration." :group mail] 6)
#@138 *The default number of bits to pay to unknown users.
If this is zero, no payment header will be generated.
See `hashcash-payment-alist'.
(custom-declare-variable 'hashcash-default-payment '20 '(#$ . -829) :type 'integer :group 'hashcash)
#@339 *An association list mapping email addresses to payment amounts.
Elements may consist of (ADDR AMOUNT) or (ADDR STRING AMOUNT), where
ADDR is the email address of the intended recipient and AMOUNT is
the value of hashcash payment to be made to that user.  STRING, if
present, is the string to be hashed; if not present ADDR will be used.
(custom-declare-variable 'hashcash-payment-alist ''nil '(#$ . -1074) :type '(repeat (choice (list :tag "Normal" (string :name "Address") (integer :name "Amount")) (list :tag "Replace hash input" (string :name "Address") (string :name "Hash input") (integer :name "Amount")))) :group 'hashcash)
#@69 *The default minimum number of bits to accept on incoming payments.
(custom-declare-variable 'hashcash-default-accept-payment '20 '(#$ . -1712) :type 'integer :group 'hashcash)
#@232 *An association list mapping hashcash resources to payment amounts.
Resources named here are to be accepted in incoming payments.  If the
corresponding AMOUNT is NIL, the value of `hashcash-default-accept-payment'
is used instead.
(custom-declare-variable 'hashcash-accept-resources '`((,user-mail-address nil)) '(#$ . -1896) :group 'hashcash)
#@35 *The path to the hashcash binary.
(custom-declare-variable 'hashcash-path '(executable-find "hashcash") '(#$ . -2246) :group 'hashcash)
#@145 *A list of parameter strings passed to `hashcash-path' when minting.
For example, you may want to set this to '("-Z2") to reduce header length.
(custom-declare-variable 'hashcash-extra-generate-parameters 'nil '(#$ . -2389) :type '(repeat string) :group 'hashcash)
#@44 *The path to the double-spending database.
(custom-declare-variable 'hashcash-double-spend-database '"hashcash.db" '(#$ . -2660) :group 'hashcash)
#@75 *Specifies whether or not hashcash payments should be made to newsgroups.
(custom-declare-variable 'hashcash-in-news 'nil '(#$ . -2813) :type 'boolean :group 'hashcash)
#@55 Alist of asynchronous hashcash processes and buffers.
(defvar hashcash-process-alist nil (#$ . 2988))
(byte-code "\300\301!\210\302\303!\204�\303\304M\210\302\305!\203�\306\307\305\"\210\202!�\306\307\310\"\210\302\311!\203/�\306\312\311\"\210\2024�\306\312\313\"\210\300\207" [require mail-utils fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) point-at-bol defalias hashcash-point-at-bol line-beginning-position point-at-eol hashcash-point-at-eol line-end-position] 3)
(defalias 'hashcash-strip-quoted-names #[(addr) "\301!\211\203�\302\303\"\203�\304\305\"\304\306\"P\207\207" [addr mail-strip-quoted-names string-match "\\`\$[^+@]+\$\\+[^@]*\$@.+\$" match-string 1 2] 5])
(defalias 'hashcash-token-substring #[nil "\212\301\302\303\215*\207" [token "" --cl-block-nil-- (byte-code "`\301 {P\301 b\210\302u\210\303\304!\204�\305\306\"\210\303\304!\203��\302u\210\202�" [token hashcash-point-at-eol 1 looking-at "[ 	]" throw --cl-block-nil--] 3)] 2])
#@67 Return the hashcash payment value required for the given address.
(defalias 'hashcash-payment-required #[(addr) "\304	\"\305\n8\206�\nA@\206�)\207" [addr hashcash-payment-alist val hashcash-default-payment assoc 2] 3 (#$ . 3984)])
#@64 Return the string with which hashcash payments should collide.
(defalias 'hashcash-payment-to #[(addr) "\303	\"\211A@\206�\n@\206�)\207" [addr hashcash-payment-alist val assoc] 4 (#$ . 4226)])
#@67 Generate a hashcash payment by finding a VAL-bit collison on STR.
(defalias 'hashcash-generate-payment #[(str val) "\304V\203+�	\203+�\212\305\306!q\210\307 \210\310\311	\312\313\312\314\315\316\317!\n&\210eb\210\320 )\207\321\322!\207" [val hashcash-path str hashcash-extra-generate-parameters 0 get-buffer-create " *hashcash*" erase-buffer apply call-process nil t "-m" "-q" "-b" number-to-string hashcash-token-substring error "No `hashcash' binary found"] 12 (#$ . 4430)])
#@138 Generate a hashcash payment by finding a VAL-bit collison on STR.
Return immediately.  Call CALLBACK with process and result when ready.
(defalias 'hashcash-generate-payment-async #[(str val callback) "\306V\203.�	\203.�\307\310\311\312	\313\314\315\316!\n&\n\211pB
B\317\f\320\321\322\323BBE\")\207\312\211\"\207" [val hashcash-path str hashcash-extra-generate-parameters process hashcash-process-alist 0 apply start-process "hashcash" nil "-m" "-q" "-b" number-to-string set-process-filter lambda (process output) funcall (process output) callback] 12 (#$ . 4918)])
#@43 Check the validity of a hashcash payment.
(defalias 'hashcash-check-payment #[(token str val) "\203�\305\306\307\211\211\310\311\312	\313\314\n!\315\f&
!\207\316\317!\210\320\321!\210\307\207" [hashcash-path hashcash-double-spend-database val str token zerop call-process nil "-c" "-d" "-f" "-b" number-to-string "-r" message "No hashcash binary found" sleep-for 1] 15 (#$ . 5501)])
#@46 Find the format version of a hashcash token.
(defalias 'hashcash-version #[(token) "\301H\302\232\203\n�\303\207\304H\302\232\203�\305\207\306\307!\207" [token 1 58 1.2 6 1.1 error "Unknown hashcash format version"] 2 (#$ . 5894)])
#@58 Check for hashcash token to RECIPIENT in current buffer.
(defalias 'hashcash-already-paid-p #[(recipient) "\212\214\303 \210\304\305!\306\211;\205�\307\310\n!	\",\207" [case-fold-search token recipient message-narrow-to-headers-or-head message-fetch-field "x-hashcash" t string-match regexp-quote] 4 (#$ . 6135)])
#@64 Insert X-Payment and X-Hashcash headers with a payment for ARG
(defalias 'hashcash-insert-payment #[(arg) "\302!?\205�\303\304!\305!\"\211\205�\306\307	\310#)\207" [arg pay hashcash-already-paid-p hashcash-generate-payment hashcash-payment-to hashcash-payment-required insert-before-markers "X-Hashcash: " "\n"] 5 (#$ . 6458) "sPay to: "])
#@122 Insert X-Payment and X-Hashcash headers with a payment for ARG
Only start calculation.  Results are inserted when ready.
(defalias 'hashcash-insert-payment-async #[(arg) "\301!?\205�\302\303!\304!\305\306\307p\310BBE#\207" [arg hashcash-already-paid-p hashcash-generate-payment-async hashcash-payment-to hashcash-payment-required lambda (process payment) hashcash-insert-payment-async-2 (process payment)] 8 (#$ . 6811) "sPay to: "])
(defalias 'hashcash-insert-payment-async-2 #[(buffer process pay) "\304!\205�rq\210\212\214\305	\n\236\n\"\306 \210\205�\307\310\"+\207" [buffer process hashcash-process-alist pay buffer-live-p delq message-goto-eoh insert-before-markers "X-Hashcash: "] 3])
#@94 Delete any hashcash processes associated with BUFFER.
BUFFER defaults to the current buffer.
(defalias 'hashcash-cancel-async #[(&optional buffer) "\204�p\303\304\n\"\211\205�\305	@!\210\306	\n\"\202�)\207" [buffer entry hashcash-process-alist nil rassq delete-process delq] 3 (#$ . 7520) nil])
#@102 Wait for asynchronous hashcash processes in BUFFER to finish.
BUFFER defaults to the current buffer.
(defalias 'hashcash-wait-async #[(&optional buffer) "\204�p\303\304\n\"\211\205�\305	@!\210\202�)\207" [buffer entry hashcash-process-alist nil rassq accept-process-output] 3 (#$ . 7831) nil])
#@67 Return non-nil if hashcash processes in BUFFER are still running.
(defalias 'hashcash-processes-running-p #[(buffer) "\302	\"\207" [buffer hashcash-process-alist rassq] 3 (#$ . 8139)])
#@60 Ask user whether to wait for hashcash processes to finish.
(defalias 'hashcash-wait-or-cancel #[nil "\300p!\205�\301\302!\203�\303 \207\304 \207" [hashcash-processes-running-p y-or-n-p "Hashcash process(es) still running; wait for them to finish? " hashcash-wait-async hashcash-cancel-async] 2 (#$ . 8331) nil])
#@27 Verify a hashcash payment
(defalias 'hashcash-verify-payment #[(token &optional resource amount) "\306\307\"\310!\311W\203�	A@\202.�\312	@!\211\313=\203$�\314	8\202-�\n\315=\205-�\316	8)\f\204T�\317
\"\211\205P�\320@\211A@)\206O�#)\202i�\232\203h�\320\f\206d�#\202i�\321*\207" [token split #1=#:--cl-var-- key resource hashcash-accept-resources split-string ":" hashcash-version 1.2 string-to-number 0 2 1 3 assoc hashcash-check-payment nil elt x hashcash-default-accept-payment amount] 5 (#$ . 8651)])
#@221 Add X-Payment: and X-Hashcash: headers with a hashcash payment
for each recipient address.  Prefix arg sets default payment temporarily.
Set ASYNC to t to start asynchronous calculation.  (See
`mail-add-payment-async').
(defalias 'mail-add-payment #[(&optional arg async) "\203\n�\306!\202�	\307\212\214\310 \210\311\312\313\307\314#!\311\312\315\307\314#!\311\312\316\307\314#!\211\2034�\317
\320\"\f\203?�\n\317\f\320\"\244\203O�\203O�\n\317\320\"\244+\n\203b�\321\203^�\322\202_�\323\n\"\210,\314\207" [arg hashcash-default-payment addrlist ng cc to prefix-numeric-value nil message-narrow-to-headers hashcash-strip-quoted-names mail-fetch-field "To" t "Cc" "Newsgroups" split-string ",[ 	\n]*" mapc hashcash-insert-payment-async hashcash-insert-payment hashcash-in-news async] 8 (#$ . 9186) "P"])
#@167 Add X-Payment: and X-Hashcash: headers with a hashcash payment
for each recipient address.  Prefix arg sets default payment temporarily.
Calculation is asynchronous.
(defalias 'mail-add-payment-async #[(&optional arg) "\301\302\"\207" [arg mail-add-payment t] 3 (#$ . 10011) "P"])
#@103 Look for a valid X-Payment: or X-Hashcash: header.
Prefix arg sets default accept amount temporarily.
(defalias 'mail-check-payment #[(&optional arg) "\203\n�\306!\202�	\307\310\311\312\"!\212eb\210\313\314!\210\315 \210`\316eb\210\204N�\313\317\f\320#\203N�\321\322 \323\"\211@\324\n!\232\203J�\325
\211A@)!)\202%�eb\210\204f�\313\326\f\320#\203f�\325\322 !\211\203U�\203n�\327\330!\210-\207" [arg hashcash-default-accept-payment version ok end value prefix-numeric-value hashcash-version hashcash-generate-payment "x" 1 search-forward "\n\n" beginning-of-line nil "X-Payment: hashcash " t split-string hashcash-token-substring " " number-to-string hashcash-verify-payment "X-Hashcash: " message "Payment valid" x] 6 (#$ . 10300) "P"])
(provide 'hashcash)

${this.title}

Code Editor : hashcash.elc