Fix 302 redirectscratch/with-fetched-url

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

1 files changed, 2 insertions, 0 deletions

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")))