# HG changeset patch
# User Lars Magne Ingebrigtsen <larsi@gnus.org>
# Date 1286219153 -7200
# Node ID ad76d32381df3154cc14a5f144eeba2e6ed57042
# Parent  c476e521566f33104d8ee056b8c0d11bb54bf441
* url-http.el (url-http-wait-for-headers-change-function): Protect
against url-http-response-status for degenerate documents.

diff -r c476e521566f -r ad76d32381df lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Mon Oct 04 14:16:22 2010 -0400
+++ b/lisp/url/ChangeLog	Mon Oct 04 21:05:53 2010 +0200
@@ -1,3 +1,8 @@
+2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* url-http.el (url-http-wait-for-headers-change-function): Protect
+	against url-http-response-status for degenerate documents.
+
 2010-10-03  Glenn Morris  <rgm@gnu.org>
 
 	* url-util.el (url-get-url-filename-chars): Don't eval-and-compile.
diff -r c476e521566f -r ad76d32381df lisp/url/url-http.el
--- a/lisp/url/url-http.el	Mon Oct 04 14:16:22 2010 -0400
+++ b/lisp/url/url-http.el	Mon Oct 04 21:05:53 2010 +0200
@@ -1054,7 +1054,8 @@
 		end-of-headers t)
 	  (url-http-clean-headers)))
 
-      (if (not end-of-headers)
+      (if (or (not end-of-headers)
+	      (not url-http-response-status))
 	  ;; Haven't seen the end of the headers yet, need to wait
 	  ;; for more data to arrive.
 	  nil