# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1284922091 25200
# Node ID 838a8c24850fb107adaf0c5a6c024a54ea6abb07
# Parent  06323f4d421bc7678ce37b36b690aba337dd876f
* lisp/url/url-cache.el (url-fetch-from-cache): New function.

diff -r 06323f4d421b -r 838a8c24850f lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Sun Sep 19 16:52:37 2010 +0200
+++ b/lisp/url/ChangeLog	Sun Sep 19 11:48:11 2010 -0700
@@ -1,3 +1,7 @@
+2010-09-19  Julien Danjou  <julien@danjou.info>
+
+	* url-cache.el (url-fetch-from-cache): New function.
+
 2010-09-18  Julien Danjou  <julien@danjou.info>
 
 	* url-vars.el (url-cache-expired): Remove unused variable.
diff -r 06323f4d421b -r 838a8c24850f lisp/url/url-cache.el
--- a/lisp/url/url-cache.el	Sun Sep 19 16:52:37 2010 +0200
+++ b/lisp/url/url-cache.el	Sun Sep 19 11:48:11 2010 -0700
@@ -68,6 +68,12 @@
             (let ((coding-system-for-write 'binary))
               (write-region (point-min) (point-max) fname nil 5))))))
 
+(defun url-fetch-from-cache (url)
+  "Fetch URL from cache and return a buffer with the content."
+  (with-current-buffer (generate-new-buffer " *temp*")
+    (url-cache-extract (url-cache-create-filename url))
+    (current-buffer)))
+
 ;;;###autoload
 (defun url-is-cached (url)
   "Return non-nil if the URL is cached."