diff options
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 6e192cd5aae..e9da4a1010c 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -1255,7 +1255,11 @@ CBARGS as the arguments." (url-http-end-of-document-sentinel proc why)) ((string= (substring why 0 4) "open") (setq url-http-connection-opened t) - (process-send-string proc (url-http-create-request))) + (condition-case error + (process-send-string proc (url-http-create-request)) + (file-error + (setq url-http-connection-opened nil) + (message "HTTP error: %s" error)))) (t (setf (car url-callback-arguments) (nconc (list :error (list 'error 'connection-failed why |