[PATCH 2/5] url-cache.el: (url-fetch-from-cache): Add new function

[Julien Danjou]

Signed-off-by: Julien Danjou <address@hidden>
---
 lisp/url/ChangeLog    |    1 +
 lisp/url/url-cache.el |    7 +++++++
 2 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a5e5c26..d4602aa 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -2,6 +2,7 @@
 
        * url-cache (url-store-in-cache): Make `buff' argument really optional.
        (url-cache-expired): Handle any type of cached object.
+       (url-fetch-from-cache): Add new function.
 
 2010-09-14  Glenn Morris  <address@hidden>
 
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index 015a1ff..6ca4c44 100644
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -69,6 +69,13 @@ FILE can be created or overwritten."
               (write-region (point-min) (point-max) fname nil 5))))))
 
 ;;;###autoload
+(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."
   (let* ((fname (url-cache-create-filename url))
-- 
1.7.1