aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/url/url-http.el4
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."
381 "Handle all set-cookie / set-cookie2 headers in an HTTP response. 381 "Handle all set-cookie / set-cookie2 headers in an HTTP response.
382The buffer must already be narrowed to the headers, so `mail-fetch-field' will 382The buffer must already be narrowed to the headers, so `mail-fetch-field' will
383work correctly." 383work correctly."
384 (let ((cookies (mail-fetch-field "Set-Cookie" nil nil t)) 384 (let ((cookies (nreverse (mail-fetch-field "Set-Cookie" nil nil t)))
385 (cookies2 (mail-fetch-field "Set-Cookie2" nil nil t))) 385 (cookies2 (nreverse (mail-fetch-field "Set-Cookie2" nil nil t))))
386 (and cookies (url-http-debug "Found %d Set-Cookie headers" (length cookies))) 386 (and cookies (url-http-debug "Found %d Set-Cookie headers" (length cookies)))
387 (and cookies2 (url-http-debug "Found %d Set-Cookie2 headers" (length cookies2))) 387 (and cookies2 (url-http-debug "Found %d Set-Cookie2 headers" (length cookies2)))
388 (while cookies 388 (while cookies