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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/02/04 00:20:59

Index: url-http.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-http.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- url-http.el 21 Jan 2007 03:24:41 -0000      1.49
+++ url-http.el 4 Feb 2007 00:20:59 -0000       1.50
@@ -30,6 +30,7 @@
 (defvar url-http-extra-headers)
 (defvar url-http-target-url)
 (defvar url-http-proxy)
+(defvar url-http-connection-opened)
 (require 'url-gw)
 (require 'url-util)
 (require 'url-parse)
@@ -1118,6 +1119,7 @@
                       url-http-extra-headers
                       url-http-data
                       url-http-target-url
+                      url-http-connection-opened
                       url-http-proxy))
          (set (make-local-variable var) nil))
 
@@ -1132,6 +1134,7 @@
              url-callback-arguments cbargs
              url-http-after-change-function 
'url-http-wait-for-headers-change-function
              url-http-target-url url-current-object
+             url-http-connection-opened nil
              url-http-proxy url-using-proxy)
 
        (set-process-buffer connection buffer)
@@ -1155,8 +1158,10 @@
   ;; has occurred.
   (with-current-buffer (process-buffer proc)
     (cond
+     (url-http-connection-opened
+      (url-http-end-of-document-sentinel proc why))
      ((string= (substring why 0 4) "open")
-      (set-process-sentinel proc 'url-http-end-of-document-sentinel)
+      (setq url-http-connection-opened t)
       (process-send-string proc (url-http-create-request)))
      (t
       (setf (car url-callback-arguments)