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 32b9f2888805bed87d8ed7242113d48394e210ec..b83accceecaffcce89d510aaec19d6760781107a 100644 (file)
--- 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")))