diff options
| -rw-r--r-- | lisp/url/url-cache.el | 12 |
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." | |||
| 198 | (if url-standalone-mode | 198 | (if url-standalone-mode |
| 199 | (not (file-exists-p (url-cache-create-filename url))) | 199 | (not (file-exists-p (url-cache-create-filename url))) |
| 200 | (let ((cache-time (url-is-cached url))) | 200 | (let ((cache-time (url-is-cached url))) |
| 201 | (and cache-time | 201 | (or (not cache-time) |
| 202 | (time-less-p | 202 | (time-less-p |
| 203 | (time-add | 203 | (time-add |
| 204 | cache-time | 204 | cache-time |
| 205 | (seconds-to-time (or expire-time url-cache-expire-time))) | 205 | (seconds-to-time (or expire-time url-cache-expire-time))) |
| 206 | (current-time)))))) | 206 | (current-time)))))) |
| 207 | 207 | ||
| 208 | (provide 'url-cache) | 208 | (provide 'url-cache) |
| 209 | 209 | ||