(url-http-mark-connection-as-busy, url-http-mark-connection-as-free): Clear

query-on-exit flag on idle connections.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 1d4d64f0e4d354b04b6c50508a82c7dbe473df44..d83c827a6fb7a8af6bdde577b6dcbea25f58155a 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -87,6 +87,7 @@ request.")
 
 (defun url-http-mark-connection-as-busy (host port proc)
   (url-http-debug "Marking connection as busy: %s:%d %S" host port proc)
+  (set-process-query-on-exit-flag proc t)
   (puthash (cons host port)
              (delq proc (gethash (cons host port) url-http-open-connections))
              url-http-open-connections)
@@ -97,6 +98,7 @@ request.")
   (when (memq (process-status proc) '(open run connect))
     (set-process-buffer proc nil)
     (set-process-sentinel proc 'url-http-idle-sentinel)
+    (set-process-query-on-exit-flag proc nil)
     (puthash (cons host port)
             (cons proc (gethash (cons host port) url-http-open-connections))
             url-http-open-connections))