diff options
author | Magnus Henoch <[email protected]> | 2006-10-12 19:59:58 +0000 |
---|---|---|
committer | Magnus Henoch <[email protected]> | 2006-10-12 19:59:58 +0000 |
commit | dfea17e083019b71fd5cb2ccb740b45232bf9fcd (patch) | |
tree | e53f855a1bf81d2061c3dc3ff3b69270f78200f3 /lisp/url | |
parent | 431feaf6f4fc6185343b1b74362bb5c4f9d8e49e (diff) |
(url-http-find-free-connection): Handle url-open-stream returning nil.
Diffstat (limited to 'lisp/url')
-rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/url/url-http.el | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index dae82b2b90..2aa14af898 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2006-10-12 Magnus Henoch <[email protected]> + + * url-http.el (url-http-find-free-connection): Handle + url-open-stream returning nil. + 2006-10-11 Magnus Henoch <[email protected]> * 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 3e74839dcb..bf8069ded7 100644 --- 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))))))) |