diff options
| -rw-r--r-- | lisp/mail/hashcash.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 59200eaab88..519c6d94e1b 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el | |||
| @@ -182,8 +182,7 @@ Return immediately. Call CALLBACK with process and result when ready." | |||
| 182 | (setq hashcash-process-alist (cons | 182 | (setq hashcash-process-alist (cons |
| 183 | (cons process (current-buffer)) | 183 | (cons process (current-buffer)) |
| 184 | hashcash-process-alist)) | 184 | hashcash-process-alist)) |
| 185 | (set-process-filter process `(lambda (process output) | 185 | (set-process-filter process callback)) |
| 186 | (funcall ,callback process output)))) | ||
| 187 | (funcall callback nil nil))) | 186 | (funcall callback nil nil))) |
| 188 | 187 | ||
| 189 | (defun hashcash-check-payment (token str val) | 188 | (defun hashcash-check-payment (token str val) |
| @@ -244,8 +243,8 @@ Only start calculation. Results are inserted when ready." | |||
| 244 | (hashcash-generate-payment-async | 243 | (hashcash-generate-payment-async |
| 245 | (hashcash-payment-to arg) | 244 | (hashcash-payment-to arg) |
| 246 | (hashcash-payment-required arg) | 245 | (hashcash-payment-required arg) |
| 247 | `(lambda (process payment) | 246 | (lambda (process payment) |
| 248 | (hashcash-insert-payment-async-2 ,(current-buffer) process payment))))) | 247 | (hashcash-insert-payment-async-2 (current-buffer) process payment))))) |
| 249 | 248 | ||
| 250 | (defun hashcash-insert-payment-async-2 (buffer process pay) | 249 | (defun hashcash-insert-payment-async-2 (buffer process pay) |
| 251 | (when (buffer-live-p buffer) | 250 | (when (buffer-live-p buffer) |