# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1284170155 25200
# Node ID 94013d67543b4f0807896a1786ca455ab4b8ba8a
# Parent  ba563485f83b7710a18f59a9effda282fa651996
* lisp/url/url-cache (url-store-in-cache): Make `buff' argument really optional.

diff -r ba563485f83b -r 94013d67543b lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Thu Sep 09 20:04:26 2010 -0700
+++ b/lisp/url/ChangeLog	Fri Sep 10 18:55:55 2010 -0700
@@ -1,3 +1,7 @@
+2010-09-11  Julien Danjou  <julien@danjou.info>
+
+	* url-cache (url-store-in-cache): Make `buff' argument really optional.
+
 2010-09-09  Glenn Morris  <rgm@gnu.org>
 
 	* url-cookie.el (url-cookie-expired-p): Tweak previous change.
diff -r ba563485f83b -r 94013d67543b lisp/url/url-cache.el
--- a/lisp/url/url-cache.el	Thu Sep 09 20:04:26 2010 -0700
+++ b/lisp/url/url-cache.el	Fri Sep 10 18:55:55 2010 -0700
@@ -62,14 +62,11 @@
 ;;;###autoload
 (defun url-store-in-cache (&optional buff)
   "Store buffer BUFF in the cache."
-  (if (not (and buff (get-buffer buff)))
-      nil
-    (save-current-buffer
-      (and buff (set-buffer buff))
-      (let* ((fname (url-cache-create-filename (url-view-url t))))
-	(if (url-cache-prepare fname)
-	    (let ((coding-system-for-write 'binary))
-	      (write-region (point-min) (point-max) fname nil 5)))))))
+    (with-current-buffer (get-buffer (or buff (current-buffer)))
+      (let ((fname (url-cache-create-filename (url-view-url t))))
+        (if (url-cache-prepare fname)
+            (let ((coding-system-for-write 'binary))
+              (write-region (point-min) (point-max) fname nil 5))))))
 
 ;;;###autoload
 (defun url-is-cached (url)