mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(url-http-handle-cookies): Bind `url-current-object'

Browse Source 
to `url-http-cookies-sources' so that cookies are attributed to
proper domain.
(url-http): Make local variable `url-http-cookies-sources'.
This commit is contained in:
Andreas Schwab 2004-11-30 21:32:35 +00:00
parent 9dbee55ed1
commit cacfe88b03
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/url/ChangeLog
View File

@ -1,3 +1,10 @@
2004-11-30 Paul Pogonyshev <pogonyshev@gmx.net>
* url-http.el (url-http-handle-cookies): Bind `url-current-object'
to `url-http-cookies-sources' so that cookies are attributed to
proper domain.
(url-http): Make local variable `url-http-cookies-sources'.
2004-11-28 Andreas Schwab <schwab@suse.de>
* url-http.el (url-http-create-request): Don't add newline after

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

@ -342,7 +342,8 @@ This allows us to use `mail-fetch-field', etc."
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)))
(cookies2 (mail-fetch-field "Set-Cookie2" nil nil t))
(url-current-object url-http-cookies-sources))
(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
@ -1043,7 +1044,8 @@ CBARGS as the arguments."
url-http-process
url-http-method
url-http-extra-headers
url-http-data))
url-http-data
url-http-cookies-sources))
(set (make-local-variable var) nil))
(setq url-http-method (or url-request-method "GET")
@ -1055,7 +1057,10 @@ CBARGS as the arguments."
url-http-chunked-counter 0
url-callback-function callback
url-callback-arguments cbargs
url-http-after-change-function 'url-http-wait-for-headers-change-function)
url-http-after-change-function 'url-http-wait-for-headers-change-function
url-http-cookies-sources (if (boundp 'proxy-object)
proxy-object
url-current-object))
(set-process-buffer connection buffer)
(set-process-sentinel connection 'url-http-end-of-document-sentinel)