diff options
| author | Glenn Morris | 2010-09-22 23:04:01 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-09-22 23:04:01 -0700 |
| commit | 8ea8e1744cd7349e854de27d615bb78fb94a6bd6 (patch) | |
| tree | b142d7926706a2db8dceddb0c31779b20a7ef9ab | |
| parent | 48ff1664e2b76bea1f9c1fad8fb73e1c0d5ce849 (diff) | |
| download | emacs-8ea8e1744cd7349e854de27d615bb78fb94a6bd6.tar.gz emacs-8ea8e1744cd7349e854de27d615bb78fb94a6bd6.zip | |
Fix previous url-cache fix.
| -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 | ||