[Emacs-diffs] Changes to emacs/lisp/url/url-http.el

[Andreas Schwab]

Index: emacs/lisp/url/url-http.el
diff -c emacs/lisp/url/url-http.el:1.6 emacs/lisp/url/url-http.el:1.7
*** emacs/lisp/url/url-http.el:1.6      Sun Nov 28 19:13:50 2004
--- emacs/lisp/url/url-http.el  Tue Nov 30 21:32:18 2004
***************
*** 342,348 ****
  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)))
      (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
--- 342,349 ----
  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))
!       (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,1049 ****
                       url-http-process
                       url-http-method
                       url-http-extra-headers
!                      url-http-data))
          (set (make-local-variable var) nil))
  
        (setq url-http-method (or url-request-method "GET")
--- 1044,1051 ----
                       url-http-process
                       url-http-method
                       url-http-extra-headers
!                      url-http-data
!                      url-http-cookies-sources))
          (set (make-local-variable var) nil))
  
        (setq url-http-method (or url-request-method "GET")
***************
*** 1055,1061 ****
              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)
  
        (set-process-buffer connection buffer)
        (set-process-sentinel connection 'url-http-end-of-document-sentinel)
--- 1057,1066 ----
              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-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)