From 983252351927a446765575614836717797c77864 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Wed, 15 Nov 2006 23:07:23 +0000 Subject: [PATCH] (url-http-wait-for-headers-change-function): Defer detection of HTTP 0.9 until we have at least one line. --- lisp/url/ChangeLog | 5 +++++ lisp/url/url-http.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index adae66aee91..22fc1ab0a02 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2006-11-15 Shun-ichi GOTO (tiny change) + + * url-http.el (url-http-wait-for-headers-change-function): Defer + detection of HTTP 0.9 until we have at least one line. + 2006-11-10 Shun-ichi GOTO (tiny change) * url-http.el (url-http-mark-connection-as-free) diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 2fb90058b51..dc670188e26 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -933,7 +933,8 @@ the end of the document." (old-http nil) (content-length nil)) (goto-char (point-min)) - (if (not (looking-at "^HTTP/[1-9]\\.[0-9]")) + (if (and (looking-at ".*\n") ; have one line at least + (not (looking-at "^HTTP/[1-9]\\.[0-9]"))) ;; Not HTTP/x.y data, must be 0.9 ;; God, I wish this could die. (setq end-of-headers t -- 2.39.5