(url-http-find-free-connection): Fix braino in last fix.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index b5bc07cb170ba21c5f5dd168785dfa8c6ab4ac00..60a279356b84372cd3553f469aecbbdecc2cc20f 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2006-03-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * url-http.el (url-http-find-free-connection): Fix braino in last fix.
+
 2006-03-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * url-http.el (url-http-find-free-connection): Don't kill the process

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index a4a01958b2d63a09f28ffbefe28e499810c66373..c401094593e42ecceb8d89bfb936e59f6408ac61 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -124,7 +124,8 @@ request.")
            (unwind-protect
                (let ((proc (url-open-stream host buf host port)))
                  ;; Drop the temp buffer link before killing the buffer.
-                 (set-process-buffer proc nil))
+                 (set-process-buffer proc nil)
+                 proc)
              (kill-buffer buf)))))))
 
 ;; Building an HTTP request