# HG changeset patch
# User Magnus Henoch <mange@freemail.hu>
# Date 1160683198 0
# Node ID 2530d72a03dbfd3314194189e2c00858a582cee6
# Parent  ba22be0026c78e1ffba9f67f96105d1864ef592f
(url-http-find-free-connection): Handle url-open-stream returning nil.

diff -r ba22be0026c7 -r 2530d72a03db lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Thu Oct 12 19:22:38 2006 +0000
+++ b/lisp/url/ChangeLog	Thu Oct 12 19:59:58 2006 +0000
@@ -1,3 +1,8 @@
+2006-10-12  Magnus Henoch  <mange@freemail.hu>
+
+	* url-http.el (url-http-find-free-connection): Handle
+	url-open-stream returning nil.
+
 2006-10-11  Magnus Henoch  <mange@freemail.hu>
 
 	* url-https.el: Remove (clashes with url-http on 8+3 systems).
diff -r ba22be0026c7 -r 2530d72a03db lisp/url/url-http.el
--- a/lisp/url/url-http.el	Thu Oct 12 19:22:38 2006 +0000
+++ b/lisp/url/url-http.el	Thu Oct 12 19:59:58 2006 +0000
@@ -123,8 +123,10 @@
            ;; like authentication.  But we use another buffer afterwards.
            (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)
+		 ;; url-open-stream might return nil.
+		 (when (processp proc)
+		   ;; Drop the temp buffer link before killing the buffer.
+		   (set-process-buffer proc nil))
                  proc)
              (kill-buffer buf)))))))