(url-http-parse-headers): Test url-automatic-caching.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 3a0fbf6ecd683dc522bfca26394ef223a97dc7f4..872ea22ce05a5019b7dcfd47d1478108710ff102 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -413,7 +413,7 @@ should be shown to the user."
          ;; Generic success for all others.  Store in the cache, and
          ;; mark it as successful.
          (widen)
-         (if (equal url-http-method "GET")
+         (if (and url-automatic-caching (equal url-http-method "GET"))
              (url-store-in-cache (current-buffer)))
          (setq success t))))
       (3                               ; Redirection