(url-http-wait-for-headers-change-function): Defer detection of HTTP

0.9 until we have at least one line.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index adae66a..22fc1ab 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-15  Shun-ichi GOTO  <gotoh@taiyo.co.jp> (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  <gotoh@taiyo.co.jp> (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 2fb9005..dc67018 100644 (file)
--- 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