[svn] Correctly skip error message body for keep-alive connections.

diff --git a/src/ChangeLog b/src/ChangeLog
index d533f2d7df26ee4ecbe3a33bfd96d286d89f49e5..a95a0441a26e82a5203f829bee7f88f5eef1857b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-02  Hrvoje Niksic  <hniksic@xemacs.org>
+
+       * http.c (gethttp): Except for head_only, use skip_short_body to
+       skip the non-20x error message before leaving gethttp.
+
 2005-07-02  Hrvoje Niksic  <hniksic@xemacs.org>
 
        * url.c (url_parse): Would crash when parsing fragments.  Support

diff --git a/src/http.c b/src/http.c
index 4883fb64d7ddfaa51a93a778577e43d85cd9dc08..61819c7fc15d8e4c668c93ac57e593e54be5ecc8 100644 (file)
--- a/src/http.c
+++ b/src/http.c
@@ -1884,11 +1884,17 @@ gethttp (struct url *u, struct http_stat *hs, int *dt, struct url *proxy)
       hs->len = 0;
       hs->res = 0;
       xfree_null (type);
-      /* Pre-1.10 Wget used CLOSE_INVALIDATE here.  Now we trust the
-        servers not to send body in response to a HEAD request.  If
-        you encounter such a server (more likely a broken CGI), use
-        `--no-http-keep-alive'.  */
-      CLOSE_FINISH (sock);
+      if (head_only)
+       /* Pre-1.10 Wget used CLOSE_INVALIDATE here.  Now we trust the
+          servers not to send body in response to a HEAD request.  If
+          you encounter such a server (more likely a broken CGI), use
+          `--no-http-keep-alive'.  */
+       CLOSE_FINISH (sock);
+      else if (keep_alive && skip_short_body (sock, contlen))
+       /* Successfully skipped the body; also keep using the socket. */
+       CLOSE_FINISH (sock);
+      else
+       CLOSE_INVALIDATE (sock);
       return RETRFINISHED;
     }