Commit dfea17e0 authored by Magnus Henoch's avatar Magnus Henoch
Browse files

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

parent 431feaf6
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).
......
......@@ -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)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment