aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/url
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <[email protected]>2010-10-04 21:05:53 +0200
committerLars Magne Ingebrigtsen <[email protected]>2010-10-04 21:05:53 +0200
commit697ebdb06b70c96e79b844216c305c3ec2eb7f07 (patch)
tree6f14fe3861c3bab4d5ab427c3254fc269808b368 /lisp/url
parent51b403bdcb9af76833a11a668cc9be0f49d62e72 (diff)
* url-http.el (url-http-wait-for-headers-change-function): Protect
against url-http-response-status for degenerate documents.
Diffstat (limited to 'lisp/url')
-rw-r--r--lisp/url/ChangeLog5
-rw-r--r--lisp/url/url-http.el3
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index f50808ff8d..720f682d22 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-04 Lars Magne Ingebrigtsen <[email protected]>
+
+ * url-http.el (url-http-wait-for-headers-change-function): Protect
+ against url-http-response-status for degenerate documents.
+
2010-10-03 Glenn Morris <[email protected]>
* 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 1c9c8c8a3d..71de213b64 100644
--- 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