[Emacs-diffs] Changes to emacs/lisp/url/url-http.el

[Eli Zaretskii]

Index: emacs/lisp/url/url-http.el
diff -u emacs/lisp/url/url-http.el:1.28 emacs/lisp/url/url-http.el:1.29
--- emacs/lisp/url/url-http.el:1.28     Tue Mar  7 17:21:16 2006
+++ emacs/lisp/url/url-http.el  Fri May  5 12:10:24 2006
@@ -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))