diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-05-05 12:10:24 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-05-05 12:10:24 +0000 |
| commit | 48abdb63bfcc329482d9ceb0ce9a965085d16c86 (patch) | |
| tree | b1e85c54dc8fe218daa63952a6439e1743e701d5 /lisp/url | |
| parent | ba1eeafade86f2f03c7e524ce730b733a56f48e4 (diff) | |
| download | emacs-48abdb63bfcc329482d9ceb0ce9a965085d16c86.tar.gz | |
(url-http-parse-headers): Don't reuse connection if "Connection: close" header
was seen.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-http.el | 4 |
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)) |