[Emacs-diffs] /srv/bzr/emacs/trunk r105754: Fix URL connection failing handling.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105754
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2011-09-13 19:18:08 +0200
message:
  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.
modified:
  lisp/url/ChangeLog
  lisp/url/url-http.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2011-08-07 17:48:11 +0000
+++ b/lisp/url/ChangeLog        2011-09-13 17:18:08 +0000
@@ -1,3 +1,9 @@
+2011-09-13  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * url-http.el (url-http-parse-headers): For HTTP 301/302/307,

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2011-08-07 17:48:11 +0000
+++ b/lisp/url/url-http.el      2011-09-13 17:18:08 +0000
@@ -180,6 +180,10 @@
                   ;; 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