Commit fd71d626 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/mail/hashcash.el (hashcash-insert-payment-async): Fix last change

parent 5feaf906
Pipeline #994 failed with stage
in 49 minutes and 14 seconds
......@@ -243,8 +243,9 @@ Only start calculation. Results are inserted when ready."
(hashcash-generate-payment-async
(hashcash-payment-to arg)
(hashcash-payment-required arg)
(lambda (process payment)
(hashcash-insert-payment-async-2 (current-buffer) process payment)))))
(let ((buf (current-buffer)))
(lambda (process payment)
(hashcash-insert-payment-async-2 buf process payment))))))
(defun hashcash-insert-payment-async-2 (buffer process pay)
(when (buffer-live-p buffer)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment