[Emacs-diffs] /srv/bzr/emacs/trunk r101788: * url-http.el (url-http-wait-for-headers-change-function): Protect

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 101788
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2010-10-04 21:05:53 +0200
message:
  * url-http.el (url-http-wait-for-headers-change-function): Protect
  against url-http-response-status for degenerate documents.
modified:
  lisp/url/ChangeLog
  lisp/url/url-http.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2010-10-03 21:37:41 +0000
+++ b/lisp/url/ChangeLog        2010-10-04 19:05:53 +0000
@@ -1,3 +1,8 @@
+2010-10-04  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * url-http.el (url-http-wait-for-headers-change-function): Protect
+       against url-http-response-status for degenerate documents.
+
 2010-10-03  Glenn Morris  <address@hidden>
 
        * url-util.el (url-get-url-filename-chars): Don't eval-and-compile.

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2010-10-03 01:30:51 +0000
+++ b/lisp/url/url-http.el      2010-10-04 19:05:53 +0000
@@ -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