diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-01 15:39:13 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-01 15:39:13 +0000 |
| commit | 8c33dc1375ce0ea35cfa70fe43f9709d6494bab2 (patch) | |
| tree | c0f2e987ea9a20ddaf5b9eaf77ae986f21e262a8 /lisp/url | |
| parent | b4ddc815b77785e93fd6a0654888da2ea63d647b (diff) | |
| download | emacs-8c33dc1375ce0ea35cfa70fe43f9709d6494bab2.tar.gz | |
(url-http-handle-cookies): Reverse list returned by
`mail-fetch-field', so that cookies are set in the correct order.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-http.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index d83c827a6fb..10a6f2e7278 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -381,8 +381,8 @@ This allows us to use `mail-fetch-field', etc." "Handle all set-cookie / set-cookie2 headers in an HTTP response. The buffer must already be narrowed to the headers, so `mail-fetch-field' will work correctly." - (let ((cookies (mail-fetch-field "Set-Cookie" nil nil t)) - (cookies2 (mail-fetch-field "Set-Cookie2" nil nil t))) + (let ((cookies (nreverse (mail-fetch-field "Set-Cookie" nil nil t))) + (cookies2 (nreverse (mail-fetch-field "Set-Cookie2" nil nil t)))) (and cookies (url-http-debug "Found %d Set-Cookie headers" (length cookies))) (and cookies2 (url-http-debug "Found %d Set-Cookie2 headers" (length cookies2))) (while cookies |