From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 14 Apr 2018 17:22:33 +0000 (+0200)
Subject: Fix 302 redirect
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee89dea0e8da6a7dc6321d19f1ec3443b2c2465a;p=emacs.git

Fix 302 redirect

* lisp/url/with-url.el (with-url--process-reply): Get 302 redirect
method right.
---

diff --git a/lisp/url/with-url.el b/lisp/url/with-url.el
index 32b9f288880..b83accceeca 100644
--- a/lisp/url/with-url.el
+++ b/lisp/url/with-url.el
@@ -597,6 +597,8 @@ If given, return the value in BUFFER instead."
      ;; Redirects.
      ((<= 300 code 399)
       (cl-incf (url-request-redirect-times req))
+      (when (memq code '(302 307))
+        (setf (url-request-method req) 'get))
       (cond
        ((not (url-request-follow-redirects req))
         (with-url--callback process '(200 "Redirect not followed")))