mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

* url-http.el (url-http-parse-headers): For HTTP 301/302/307, don't convert to a GET request.

Browse Source 
Fixes: debbugs:701
This commit is contained in:
Chong Yidong 2011-08-07 13:48:11 -04:00
parent 75bfc66716
commit 98fdd2b837
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/url/ChangeLog
View File

@ -1,3 +1,8 @@
2011-08-07 Chong Yidong <cyd@stupidchicken.com>
* url-http.el (url-http-parse-headers): For HTTP 301/302/307,
don't convert to a GET request (Bug#701).
2011-07-13 Chris Newton <redshodan@gmail.com> (tiny change)
* url-http.el (url-http): Copy over `url-show-status' to the async

12
lisp/url/url-http.el
View File

@ -563,16 +563,8 @@ should be shown to the user."
;; automatically redirect the request unless it can be
;; confirmed by the user, since this might change the
;; conditions under which the request was issued.
(if (member url-http-method '("HEAD" "GET"))
;; Automatic redirection is ok
nil
;; It is just too big of a pain in the ass to get this
;; prompt all the time. We will just silently lose our
;; data and convert to a GET method.
(url-http-debug "Converting `%s' request to `GET' because of REDIRECT(%d)"
url-http-method url-http-response-status)
(setq url-http-method "GET"
url-http-data nil)))
(unless (member url-http-method '("HEAD" "GET"))
(setq redirect-uri 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