changeset 76821:1fdf9fc79e3e

(url-http-mark-connection-as-busy, url-http-mark-connection-as-free): Clear query-on-exit flag on idle connections.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 31 Mar 2007 09:44:44 +0000
parents 665998d6d5de
children 9aa0c982420e
files lisp/url/url-http.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-http.el	Sat Mar 31 09:43:42 2007 +0000
+++ b/lisp/url/url-http.el	Sat Mar 31 09:44:44 2007 +0000
@@ -87,6 +87,7 @@
 
 (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 @@
   (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))