From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 13 Mar 2019 18:25:28 +0000 (-0400)
Subject: * lisp/mail/hashcash.el (hashcash-insert-payment-async): Fix last change
X-Git-Tag: emacs-27.0.90~3417
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd71d626dc0554bcb770dc4b97b06edcf42516fb;p=emacs.git

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

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)