[gnus git] branch master updated: m0-11-222-gb630a8c =1= Fix fallout from `save-excursion' changes

       via  b630a8cf2d9b8508a4f7da911355c5c787f69d77 (commit)
      from  ab346c80b97cf11f269d79fd7a66b05090721d64 (commit)


- Log -----------------------------------------------------------------
commit b630a8cf2d9b8508a4f7da911355c5c787f69d77
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sat Apr 25 14:44:07 2015 +0200

    Fix fallout from `save-excursion' changes
    
    * hashcash.el (hashcash-insert-payment-async-2): Save the mark when
    altering the buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d582dca..13d5b06 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-25  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* hashcash.el (hashcash-insert-payment-async-2): Save the mark when
+	altering the buffer.
+
 2015-04-15  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-uu.el (gnus-uu-save-article):
diff --git a/lisp/hashcash.el b/lisp/hashcash.el
index 7017065..dd677d4 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
+	  (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)))))))
+	      (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))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/hashcash.el |   14 ++++++++------
 2 files changed, 13 insertions(+), 6 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project