Changes committed gnus/lisp (ChangeLog dns-mode.el hashcash.el)

Modified: ChangeLog dns-mode.el hashcash.el

2009-11-05  Dan Nicolaescu  <[email protected]>

	* dns-mode.el (auto-mode-alist): Purecopy string.

2009-11-03  Stefan Monnier  <[email protected]>

	* hashcash.el (hashcash-generate-payment): Use with-current-buffer.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2033 gnus/lisp/ChangeLog:7.2034
--- ChangeLog:7.2033	Mon Oct 26 00:20:58 2009
+++ ChangeLog	Mon Nov  9 05:15:08 2009
@@ -1,3 +1,11 @@
+2009-11-05  Dan Nicolaescu  <[email protected]>
+
+	* dns-mode.el (auto-mode-alist): Purecopy string.
+
+2009-11-03  Stefan Monnier  <[email protected]>
+
+	* hashcash.el (hashcash-generate-payment): Use with-current-buffer.
+
 2009-10-24  Glenn Morris  <[email protected]>
 
 	* gnus-art.el (help-xref-stack-item): Define for compiler.
Index: dns-mode.el
diff -u gnus/lisp/dns-mode.el:7.13 gnus/lisp/dns-mode.el:7.14
--- dns-mode.el:7.13	Fri May 29 01:16:51 2009
+++ dns-mode.el	Mon Nov  9 05:15:08 2009
@@ -222,7 +222,7 @@
 	   ;; We return nil in case this is used in write-contents-functions.
 	   nil)))
 
-;;;###autoload(add-to-list 'auto-mode-alist '("\\.soa\\'" . dns-mode))
+;;;###autoload(add-to-list 'auto-mode-alist (purecopy '("\\.soa\\'" . dns-mode)))
 
 (provide 'dns-mode)
 
Index: hashcash.el
diff -u gnus/lisp/hashcash.el:7.29 gnus/lisp/hashcash.el:7.30
--- hashcash.el:7.29	Thu Jan 22 08:02:16 2009
+++ hashcash.el	Mon Nov  9 05:15:08 2009
@@ -161,8 +161,7 @@
   "Generate a hashcash payment by finding a VAL-bit collison on STR."
   (if (and (> val 0)
 	   hashcash-path)
-      (save-excursion
-	(set-buffer (get-buffer-create " *hashcash*"))
+      (with-current-buffer (get-buffer-create " *hashcash*")
 	(erase-buffer)
 	(apply 'call-process hashcash-path nil t nil
 	       "-m" "-q" "-b" (number-to-string val) str