Changes committed gnus/lisp (ChangeLog sha1.el)

Modified: ChangeLog sha1.el

2009-11-26  Kevin Ryde  <[email protected]>

	* sha1.el (sha1-string-external): default-directory "/" in case
	otherwise non-existent.  process-connection-type pipe for touch of
	efficiency recommended by elisp manual.  (An aside in Bug#3911.)


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2035 gnus/lisp/ChangeLog:7.2036
--- ChangeLog:7.2035	Tue Nov 17 03:22:49 2009
+++ ChangeLog	Fri Nov 27 02:02:17 2009
@@ -1,3 +1,9 @@
+2009-11-26  Kevin Ryde  <[email protected]>
+
+	* sha1.el (sha1-string-external): default-directory "/" in case
+	otherwise non-existent.  process-connection-type pipe for touch of
+	efficiency recommended by elisp manual.  (An aside in Bug#3911.)
+
 2009-11-17  Katsumi Yamaoka  <[email protected]>
 
 	* rfc2047.el (rfc2047-decode-region): Don't quote decoded words
Index: sha1.el
diff -u gnus/lisp/sha1.el:7.16 gnus/lisp/sha1.el:7.17
--- sha1.el:7.16	Thu Jan 22 08:02:16 2009
+++ sha1.el	Fri Nov 27 02:02:17 2009
@@ -86,7 +86,9 @@
   :group 'sha1)
 
 (defun sha1-string-external (string &optional binary)
-  (let (prog args digest)
+  (let ((default-directory "/") ;; in case otherwise non-existent
+        (process-connection-type nil) ;; pipe
+        prog args digest)
     (if (consp sha1-program)
 	(setq prog (car sha1-program)
 	      args (cdr sha1-program))