# HG changeset patch
# User Magnus Henoch <mange@freemail.hu>
# Date 1163632031 0
# Node ID 4e7c6f1faddf03fa57656b624d690d0648017a6e
# Parent  cce8c092567fe1c7a0219dea00535fbd8e770ee3
(url-http-wait-for-headers-change-function): Defer detection of HTTP
0.9 until we have at least one line.

diff -r cce8c092567f -r 4e7c6f1faddf lisp/url/url-http.el
--- a/lisp/url/url-http.el	Wed Nov 15 16:34:20 2006 +0000
+++ b/lisp/url/url-http.el	Wed Nov 15 23:07:11 2006 +0000
@@ -933,7 +933,8 @@
 	    (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