From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,6bd623312637f478
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.66.83.40 with SMTP id n8mr1759082pay.42.1350852269900;
        Sun, 21 Oct 2012 13:44:29 -0700 (PDT)
Path: 
 6ni11231pbd.1!nntp.google.com!news.glorb.com!feeder.erje.net!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From: Okasu <oka.sux@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: ZLIB_ERROR with AWS
Date: Sun, 21 Oct 2012 20:44:29 +0000 (UTC)
Organization: A noiseless patient Spider
Message-ID: <slrnk88nju.s4.oka.sux@localhost.localdomain>
References: <slrnk83sci.9vf.oka.sux@localhost.localdomain>
 <slrnk84kap.ln5.oka.sux@localhost.localdomain>
 <1rlmakeghhe91$.j7n87jxwku6w.dlg@40tude.net>
 <slrnk84oah.pm3.oka.sux@localhost.localdomain>
 <ioj6vmgui47m$.43as04veo40i$.dlg@40tude.net>
 <slrnk863bm.cna.oka.sux@localhost.localdomain> <50831075.6040802@obry.net>
 <slrnk8652n.p3n.oka.sux@localhost.localdomain> <508316CB.7030709@obry.net>
 <slrnk865tq.qn6.oka.sux@localhost.localdomain>
 <slrnk8697j.vui.oka.sux@localhost.localdomain>
 <d5006135-9188-4421-b450-ece32650c0f0@googlegroups.com>
Mime-Version: 1.0
Injection-Date: Sun, 21 Oct 2012 20:44:29 +0000 (UTC)
Injection-Info: mx04.eternal-september.org;
 posting-host="bc9127a96e16ddc323f05fe298adcf6a";
	logging-data="23252"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+uZT9tOTqeEkdMKn3Zt3Dh"
User-Agent: slrn/0.9.9p1 (Linux)
Cancel-Lock: sha1:akcy/0/X1kzMCL0zW8h7T4npSzQ=
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Date: 2012-10-21T20:44:29+00:00
List-Id: <comp.lang.ada>

I'm using Linux and by now i have to use this ugly workaround:

-----
      function Get_Body (URL : Unbounded_String) return String
      is
         Limit : constant Content_Range := (1, 3000);
      begin
         return Message_Body
           (Get (URL => To_String (URL), Data_Range => Limit));
      exception
         when Zlib_Error =>
            return Message_Body (Get (To_String (URL)));
      end Get_Body;
-----

It's miserable.