diff options
| author | Stefan Monnier | 2019-03-13 14:25:28 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-03-13 14:25:28 -0400 |
| commit | fd71d626dc0554bcb770dc4b97b06edcf42516fb (patch) | |
| tree | 2e59c19f1ac85e8416ebd9793a7c4b7914ad6eb6 | |
| parent | 5feaf906e110097a443af78f549f01c1bd527e25 (diff) | |
| download | emacs-fd71d626dc0554bcb770dc4b97b06edcf42516fb.tar.gz emacs-fd71d626dc0554bcb770dc4b97b06edcf42516fb.zip | |
* lisp/mail/hashcash.el (hashcash-insert-payment-async): Fix last change
| -rw-r--r-- | lisp/mail/hashcash.el | 5 |
1 files 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." | |||
| 243 | (hashcash-generate-payment-async | 243 | (hashcash-generate-payment-async |
| 244 | (hashcash-payment-to arg) | 244 | (hashcash-payment-to arg) |
| 245 | (hashcash-payment-required arg) | 245 | (hashcash-payment-required arg) |
| 246 | (lambda (process payment) | 246 | (let ((buf (current-buffer))) |
| 247 | (hashcash-insert-payment-async-2 (current-buffer) process payment))))) | 247 | (lambda (process payment) |
| 248 | (hashcash-insert-payment-async-2 buf process payment)))))) | ||
| 248 | 249 | ||
| 249 | (defun hashcash-insert-payment-async-2 (buffer process pay) | 250 | (defun hashcash-insert-payment-async-2 (buffer process pay) |
| 250 | (when (buffer-live-p buffer) | 251 | (when (buffer-live-p buffer) |