(url-http-parse-headers): Don't reuse connection if "Connection: close" header

was seen.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index c401094593e..45bf97ec6b6 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -386,6 +386,10 @@ should be shown to the user."
   (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))