From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 31 Mar 2007 09:44:44 +0000 (+0000)
Subject: (url-http-mark-connection-as-busy, url-http-mark-connection-as-free): Clear
X-Git-Tag: emacs-pretest-22.0.97~103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ae85a27e06d120685b3c2ce398e7acc0a51011a;p=emacs.git

(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 1d4d64f0e4d..d83c827a6fb 100644
--- 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))