[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-http.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-http.el |
Date: |
Fri, 05 May 2006 12:10:24 +0000 |
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))
- [Emacs-diffs] Changes to emacs/lisp/url/url-http.el,
Eli Zaretskii <=