From fd71d626dc0554bcb770dc4b97b06edcf42516fb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 13 Mar 2019 14:25:28 -0400 Subject: [PATCH] * lisp/mail/hashcash.el (hashcash-insert-payment-async): Fix last change --- lisp/mail/hashcash.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 519c6d94e1b..60689529974 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -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) -- 2.39.2