[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 2/5] url-cache.el: (url-fetch-from-cache): Add new function
From: |
Julien Danjou |
Subject: |
[PATCH 2/5] url-cache.el: (url-fetch-from-cache): Add new function |
Date: |
Wed, 15 Sep 2010 10:51:25 +0200 |
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
- Enhance url-cache, Julien Danjou, 2010/09/15
- [PATCH 4/5] url-vars.el: Remove useless variable `url-cache-expired'., Julien Danjou, 2010/09/15
- [PATCH 2/5] url-cache.el: (url-fetch-from-cache): Add new function,
Julien Danjou <=
- [PATCH 5/5] url-cache: add url-cache-expire-time, Julien Danjou, 2010/09/15
- [PATCH 1/5] url-cache.el (url-cache-expired): Handle any type of cached object, Julien Danjou, 2010/09/15
- [PATCH 3/5] url-cache.el: (url-is-cached): Enhance docstring., Julien Danjou, 2010/09/15
- Re: Enhance url-cache, Julien Danjou, 2010/09/22