(url-http-wait-for-headers-change-function): Protect against malformed headerless...

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index f75a3444e0c40b718fa426e4aa97043d6d6e4ab9..528b63a6448e5adaed073ba0bd51d095ec54eb03 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * url-http.el (url-http-wait-for-headers-change-function): Protect
+       against malformed headerless responses from servers.
+
 2011-04-02  Chong Yidong  <cyd@stupidchicken.com>
 
        * url-gw.el (url-open-stream): Use new open-network-stream

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 07e57cf3301bebc743aadbd9d533cf2fcb36d636..28071e7165a3ffabddb668a22347c7f17ec22c62 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1077,6 +1077,10 @@ the end of the document."
                (downcase url-http-transfer-encoding)))
 
        (cond
+        ((null url-http-response-status)
+         ;; We got back a headerless malformed response from the
+         ;; server.
+         (url-http-activate-callback))
         ((or (= url-http-response-status 204)
              (= url-http-response-status 205))
          (url-http-debug "%d response must have headers only (%s)."