# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1146831024 0
# Node ID 083f558fe28342558483de31711a68bd152e6184
# Parent  fd520a2e66adc18be0637b16ac5b906c27154251
(url-http-parse-headers): Don't reuse connection if "Connection: close" header
was seen.

diff -r fd520a2e66ad -r 083f558fe283 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Fri May 05 11:56:31 2006 +0000
+++ b/lisp/url/url-http.el	Fri May 05 12:10:24 2006 +0000
@@ -386,6 +386,10 @@
   (url-http-parse-response)
   (mail-narrow-to-head)
   ;;(narrow-to-region (point-min) url-http-end-of-headers)
+  (let ((connection (mail-fetch-field "Connection")))
+    (if (and connection
+	     (string= (downcase connection) "close"))
+	(delete-process url-http-process)))
   (let ((class nil)
 	(success nil))
     (setq class (/ url-http-response-status 100))