From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 13 Apr 2018 00:21:30 +0000 (+0200)
Subject: Treat 302 redirects as if they were 303 redirects
X-Git-Tag: emacs-27.0.90~5266
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6c4a0298eb66e9a9dacd67f9b9a13d8aae97c49;p=emacs.git

Treat 302 redirects as if they were 303 redirects

* lisp/url/url-http.el (url-http-parse-headers): Treat 302 as 303,
since this is what the standards recommend these days (bug#25703).
See https://en.wikipedia.org/wiki/List_of_HTTP_status_codes#3xx_Redirection
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index aed0efab01a..e2d7a50e29c 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -623,6 +623,12 @@ should be shown to the user."
 	    ;; We do not support agent-driven negotiation, so we just
 	    ;; redirect to the preferred URI if one is provided.
 	    nil)
+           (`found			; 302
+	    ;; 302 Found was ambiguously defined in the standards, but
+	    ;; it's now recommended that it's treated like 303 instead
+	    ;; of 307, since that's what most servers expect.
+	    (setq url-http-method "GET"
+		  url-http-data nil))
            (`see-other			; 303
 	    ;; The response to the request can be found under a different
 	    ;; URI and SHOULD be retrieved using a GET method on that