[patch] clear query-on-exit flag of idle url-http connections

[patch] clear query-on-exit flag of idle url-http connections

[Andreas Seltenreich]

Hi,

I'd like to propose the following patch to clear the query-on-exit
flag of idle url-http connections.

The fact that connections are kept alive for potential reuse for an
indefinite amount of time is really just an implementation detail, and
the user should not be bothered by this when exiting emacs.

regards,
andreas

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/ChangeLog,v
retrieving revision 1.110
diff -c -0 -r1.110 ChangeLog
*** ChangeLog	11 Feb 2007 00:28:01 -0000	1.110
--- ChangeLog	29 Mar 2007 04:01:40 -0000
***************
*** 0 ****
--- 1,6 ----
+ 2007-03-29  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+ 
+ 	* url-http.el (url-http-mark-connection-as-busy)
+ 	(url-http-mark-connection-as-free): Clear query-on-exit flag on
+ 	idle connections.
+ 
Index: url-http.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-http.el,v
retrieving revision 1.50
diff -c -r1.50 url-http.el
*** url-http.el	4 Feb 2007 00:20:59 -0000	1.50
--- url-http.el	29 Mar 2007 04:01:42 -0000
***************
*** 87,92 ****
--- 87,93 ----
  
  (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,102 ****
--- 98,104 ----
    (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))