Re: [PATCH] Use closures in hashcash.el

[Christopher Wellons]

Michael Heerdegen has pointed out that the second backtick change isn't
correct since it doesn't remember the original buffer. Here's a
correction (sorry!):

diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el
index 519c6d94e1..6ee1aee55a 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 ((buffer (current-buffer)))
+       (lambda (process payment)
+         (hashcash-insert-payment-async-2 buffer process payment))))))

(defun hashcash-insert-payment-async-2 (buffer process pay)
  (when (buffer-live-p buffer)