--- url-http.el 2006-05-06 18:32:00.000000000 -0400 +++ /home/happy/src/emacs/multi-tty/lisp/url/url-http.el 2006-05-06 13:54:59.000000000 -0400 @@ -264,10 +273,13 @@ ;; If-modified-since (if (and (not no-cache) (member url-request-method '("GET" nil))) - (let ((tm (url-is-cached (or proxy-obj url)))) - (if tm - (concat "If-modified-since: " - (url-get-normalized-date tm) "\r\n")))) + (let ((cache-info (url-is-cached (or proxy-obj url)))) + (if cache-info + (concat "If-Modified-Since: " + (url-get-normalized-date (car cache-info)) "\r\n" + (if (cadr cache-info) + (concat "If-None-Match: " (cadr cache-info) "\r\n")))))) + ;; Whence we came (if ref-url (concat "Referer: " ref-url "\r\n"))