X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fhashcash.el;h=dd677d44ab2e97e1db8253cafb62ca84bc250d55;hp=70170654f67b51fd1d724222c7d767e0745c6fc6;hb=b630a8cf2d9b8508a4f7da911355c5c787f69d77;hpb=ab346c80b97cf11f269d79fd7a66b05090721d64

diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index 70170654f..dd677d44a 100644
--- a/lisp/hashcash.el
+++ b/lisp/hashcash.el
@@ -252,12 +252,13 @@ Only start calculation.  Results are inserted when ready."
     (with-current-buffer buffer
       (save-excursion
 	(save-restriction
-	  (setq hashcash-process-alist (delq
-					(assq process hashcash-process-alist)
-					hashcash-process-alist))
-	  (message-goto-eoh)
-	  (when pay
-	    (insert-before-markers "X-Hashcash: " pay)))))))
+	  (cl-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))))))))
 
 (defun hashcash-cancel-async (&optional buffer)
   "Delete any hashcash processes associated with BUFFER.
@@ -317,6 +318,7 @@ for each recipient address.  Prefix arg sets default payment temporarily.
 Set ASYNC to t to start asynchronous calculation.  (See
 `mail-add-payment-async')."
   (interactive "P")
+  (debug)
   (let ((hashcash-default-payment (if arg (prefix-numeric-value arg)
 				    hashcash-default-payment))
 	(addrlist nil))