* url-http.el (url-http-wait-for-headers-change-function): Protect

against url-http-response-status for degenerate documents.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index f50808ff8ddec2b1ecbb3e12f8a41088fe080621..720f682d2251ee3d4bcb26996e5296a7b5ed2880 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 1c9c8c8a3de5077a9cebf63af2f3a88953d9fd46..71de213b64bc5e7e81b1aa2ca942e85781c9494d 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1054,7 +1054,8 @@ the end of the document."
                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