comparison lisp/url/url-cache.el @ 110491:3501c2b9e719

* url-cache.el (url-cache-expired): Don't autoload. Tweak previous change.

110490:7c3194dcf52d

(defun url-cache-extract (fnam)
  "Extract FNAM from the local disk cache."
  (erase-buffer)
  (insert-file-contents-literally fnam))

;;;###autoload
(defun url-cache-expired (url &optional expire-time)
  "Return t if a cached URL is more than EXPIRE-TIME old.
If EXPIRE-TIME is not set, `url-cache-expire-time' is used instead."
  (cond (url-standalone-mode
	 (not (file-exists-p (url-cache-create-filename url))))
	(t (let ((cache-time (url-is-cached url)))
	     (if cache-time
		 (time-less-p
		  (time-add
		   (url-is-cached url)
		   (seconds-to-time (or expire-time url-cache-expire-time)))
		  (current-time))
	       t)))))

(provide 'url-cache)

;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c
;;; url-cache.el ends here

110491:3501c2b9e719

(defun url-cache-extract (fnam)
  "Extract FNAM from the local disk cache."
  (erase-buffer)
  (insert-file-contents-literally fnam))

(defun url-cache-expired (url &optional expire-time)
  "Return non-nil if a cached URL is older than EXPIRE-TIME seconds.
The default value of EXPIRE-TIME is `url-cache-expire-time'.
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))))))

(provide 'url-cache)

;; arch-tag: 95b050a6-8e81-4f23-8e63-191b9d1d657c
;;; url-cache.el ends here