summaryrefslogtreecommitdiff
path: root/lisp/url/url-cache.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2010-09-22 23:04:01 -0700
committerGlenn Morris <rgm@gnu.org>2010-09-22 23:04:01 -0700
commit8ea8e1744cd7349e854de27d615bb78fb94a6bd6 (patch)
treeb142d7926706a2db8dceddb0c31779b20a7ef9ab /lisp/url/url-cache.el
parent48ff1664e2b76bea1f9c1fad8fb73e1c0d5ce849 (diff)
downloademacs-8ea8e1744cd7349e854de27d615bb78fb94a6bd6.tar.gz
Fix previous url-cache fix.
Diffstat (limited to 'lisp/url/url-cache.el')
-rw-r--r--lisp/url/url-cache.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index 22095eb631d..677e03c37f3 100644
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -198,12 +198,12 @@ If `url-standalone-mode' is non-nil, cached items never expire."
(if url-standalone-mode
(not (file-exists-p (url-cache-create-filename url)))
(let ((cache-time (url-is-cached url)))
- (and cache-time
- (time-less-p
- (time-add
- cache-time
- (seconds-to-time (or expire-time url-cache-expire-time)))
- (current-time))))))
+ (or (not cache-time)
+ (time-less-p
+ (time-add
+ cache-time
+ (seconds-to-time (or expire-time url-cache-expire-time)))
+ (current-time))))))
(provide 'url-cache)