Revert previous change

(hashcash-insert-payment-async-2): Revert previous change because it
still means that the mark is moving around.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13d5b06..10ab0a0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * hashcash.el (hashcash-insert-payment-async-2): Save the mark when
        altering the buffer.
 
        * hashcash.el (hashcash-insert-payment-async-2): Save the mark when
        altering the buffer.

+       (hashcash-insert-payment-async-2): Revert previous change because it
+       still means that the mark is moving around.

 
 2015-04-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 
 2015-04-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index 9aaed5c..6d9e678 100644 (file)
--- a/lisp/hashcash.el
+++ b/lisp/hashcash.el
@@ -252,13 +252,12 @@ Only start calculation.  Results are inserted when ready."
     (with-current-buffer buffer
       (save-excursion
        (save-restriction
     (with-current-buffer buffer
       (save-excursion
        (save-restriction

-         (letf (((mark)))
-           (setq hashcash-process-alist (delq
-                                         (assq process hashcash-process-alist)
-                                         hashcash-process-alist))
-           (message-goto-eoh)
-           (when pay
-             (insert-before-markers "X-Hashcash: " pay))))))))
+         (setq hashcash-process-alist (delq
+                                       (assq process hashcash-process-alist)
+                                       hashcash-process-alist))
+         (message-goto-eoh)
+         (when pay
+           (insert-before-markers "X-Hashcash: " pay)))))))

 
 (defun hashcash-cancel-async (&optional buffer)
   "Delete any hashcash processes associated with BUFFER.
 
 (defun hashcash-cancel-async (&optional buffer)
   "Delete any hashcash processes associated with BUFFER.