If the server hangs up while we're talking to it, just `message' the error instead of throwing an error.
This commit is contained in:
parent
40500957d9
commit
122d94635f
2 changed files with 11 additions and 1 deletions
|
@ -1,3 +1,9 @@
|
|||
2011-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* url-http.el (url-http-async-sentinel): If the server hangs up
|
||||
while we're talking to it, just `message' the error instead of
|
||||
throwing an error.
|
||||
|
||||
2011-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* url-cookie.el (url-cookie-expired-p): Protect against
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue