diff options
author | Lars Magne Ingebrigtsen <[email protected]> | 2011-09-13 19:18:08 +0200 |
---|---|---|
committer | Lars Magne Ingebrigtsen <[email protected]> | 2011-09-13 19:18:08 +0200 |
commit | ad87170ff365ce45fca51f24ef01119f5c5fb7d2 (patch) | |
tree | 9de900a24beb85b3454d97895391da67230c3603 | |
parent | ef8ef9fb80786849815c5142ec5319fba77ecd9f (diff) |
Fix URL connection failing handling.
* url-http.el (url-http-find-free-connection): If there was an
error on connect, make sure the user isn't bothered with
irrelevant questions.
-rw-r--r-- | lisp/url/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/url/url-http.el | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 5714179fcf..8ad0a8ee43 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,9 @@ +2011-09-13 Lars Magne Ingebrigtsen <[email protected]> + + * url-http.el (url-http-find-free-connection): If there was an + error on connect, make sure the user isn't bothered with + irrelevant questions. + 2011-08-07 Chong Yidong <[email protected]> * url-http.el (url-http-parse-headers): For HTTP 301/302/307, diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index a21aed2143..0ba3aa2c5f 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -180,6 +180,10 @@ request.") ;; Drop the temp buffer link before killing the buffer. (set-process-buffer proc nil)) proc) + ;; If there was an error on connect, make sure we don't + ;; get queried. + (when (get-buffer-process buf) + (set-process-query-on-exit-flag (get-buffer-process buf) nil)) (kill-buffer buf))))))) ;; Building an HTTP request |