(url-http-find-free-connection): Handle url-open-stream returning nil.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index dae82b2b9008189dc61300512470df3d15577019..2aa14af89830a9f0389b046e8ce0d921383d5a52 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 3e74839dcb9772d9022aeefecf0a7887621ec752..bf8069ded7ebd303b61ed55ba9875a577a769de8 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -123,8 +123,10 @@ request.")
            ;; 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)))))))