(url-retrieve): Test url-history-track.

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 4a1e157..81d2d39 100644 (file)
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -148,7 +148,8 @@ already completed."
       (if buffer
          (with-current-buffer buffer
            (apply callback cbargs))))
-    (url-history-update-url url (current-time))
+    (if url-history-track
+       (url-history-update-url url (current-time)))
     buffer))
 
 (defun url-retrieve-synchronously (url)