From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 24 Sep 2019 08:43:28 +0000 (+0200)
Subject: Allow url-insert-file-contents to work on 304 responses
X-Git-Tag: emacs-27.0.90~1449
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9f8dcae704b14fde484d7bfd8805d2cd3e5ab5d;p=emacs.git

Allow url-insert-file-contents to work on 304 responses

* lisp/url/url-http.el (url-http--insert-file-helper): If the
server answers 304 Not modified, then that's not an error
(bug#26063).
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index a6963cef701..31c866bd664 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -551,8 +551,9 @@ work correctly."
       ;; display a file buffer even if the URL does not exist and
       ;; 'url-retrieve-synchronously' returns 404 or whatever.
       (unless (or visit
-                  (and (>= url-http-response-status 200)
-                       (< url-http-response-status 300)))
+                  (or (and (>= url-http-response-status 200)
+                           (< url-http-response-status 300))
+                      (= url-http-response-status 304))) ; "Not modified"
         (let ((desc (nth 2 (assq url-http-response-status url-http-codes))))
           (kill-buffer buffer)
           ;; Signal file-error per bug#16733.