From f05da90c87a08132e3f61195d6f70cf85c8fc9af Mon Sep 17 00:00:00 2001
From: spiralvoice <spiralvoice>
Date: Thu, 6 Jan 2011 20:09:09 +0000
Subject: [PATCH] patch #6012

---
 distrib/ChangeLog            | 3 +++
 src/utils/net/http_client.ml | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/distrib/ChangeLog b/distrib/ChangeLog
index 0be1efc2..23c96460 100644
--- a/distrib/ChangeLog
+++ b/distrib/ChangeLog
@@ -14,6 +14,9 @@ http://mldonkey.sourceforge.net/Windows#MinGW_Installation
 ChangeLog
 =========
 
+2011/01/06
+6012: Fix bug in Http_client.wget_string (ygrek)
+
 2010/12/22
 7418: Ignore setsockopt_float exception while sending mail
 
diff --git a/src/utils/net/http_client.ml b/src/utils/net/http_client.ml
index 305f0865..f143098c 100644
--- a/src/utils/net/http_client.ml
+++ b/src/utils/net/http_client.ml
@@ -500,7 +500,7 @@ let wget_string r f ?(ferr=def_ferr) progress =
       let content = 
         if r.req_gzip then
           try
-            let io = IO.input_string (Buffer.contents file_buf) in
+            let io = Gzip.input_io (IO.input_string (Buffer.contents file_buf)) in
             IO.read_all io
           with e -> 
             lprintf_nl "Exception %s while uncompressing content from %s" (Printexc2.to_string e) (Url.to_string r.req_url);
-- 
2.11.4.GIT