diff options
| -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." | |||
| 381 | "Handle all set-cookie / set-cookie2 headers in an HTTP response. | 381 | "Handle all set-cookie / set-cookie2 headers in an HTTP response. |
| 382 | The buffer must already be narrowed to the headers, so `mail-fetch-field' will | 382 | The buffer must already be narrowed to the headers, so `mail-fetch-field' will |
| 383 | work correctly." | 383 | work 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 |