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

[Miles Bader]

Index: emacs/lisp/url/url-http.el
diff -c emacs/lisp/url/url-http.el:1.3.2.4 emacs/lisp/url/url-http.el:1.3.2.5
*** emacs/lisp/url/url-http.el:1.3.2.4  Tue Apr 27 14:08:33 2004
--- emacs/lisp/url/url-http.el  Wed Dec  8 23:36:34 2004
***************
*** 255,269 ****
           (if ref-url (concat
                        "Referer: " ref-url "\r\n"))
           extra-headers
!          ;; Any data
           (if url-request-data
               (concat
                "Content-length: " (number-to-string
                                    (length url-request-data))
!               "\r\n\r\n"
!               url-request-data))
           ;; End request
!          "\r\n"))
      (url-http-debug "Request is: \n%s" request)
      request))
  
--- 255,270 ----
           (if ref-url (concat
                        "Referer: " ref-url "\r\n"))
           extra-headers
!          ;; Length of data
           (if url-request-data
               (concat
                "Content-length: " (number-to-string
                                    (length url-request-data))
!               "\r\n"))
           ;; End request
!          "\r\n"
!          ;; Any data
!          url-request-data))
      (url-http-debug "Request is: \n%s" request)
      request))
  
***************
*** 341,347 ****
  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
***************
*** 1042,1048 ****
                       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")
***************
*** 1054,1060 ****
              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)