From f9837eb563187559260a84cdc5d24aaca72b5bed Mon Sep 17 00:00:00 2001
From: Sam O'Connor <sam@octech.com.au>
Date: Fri, 19 Jan 2018 00:39:59 +1100
Subject: [PATCH] handle multiple Transfer-Encoding headers and/or multiple
 values, e.g. "gzip, chunked"

---
 src/Messages.jl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/Messages.jl b/src/Messages.jl
index f8d98a4eb..60061d348 100644
--- a/src/Messages.jl
+++ b/src/Messages.jl
@@ -296,7 +296,9 @@ end
 Does the `Message` have a "Transfer-Encoding: chunked" header?
 """
 
-ischunked(m) = hasheader(m, "Transfer-Encoding", "chunked")
+ischunked(m) = any(h->(lowercase(h[1]) == "transfer-encoding" &&
+                       endswith(lowercase(h[2]), "chunked")),
+                   m.headers)
 
 
 """
@@ -394,14 +396,19 @@ end
 #Like https://github.com/JuliaIO/FileIO.jl/blob/v0.6.1/src/FileIO.jl#L19 ?
 load(m::Message) = payload(m, String)
 
-payload(m::Message)::Vector{UInt8} =
-    (enc = header(m, "Transfer-Encoding")) != "" ? decode(m, enc) : m.body
+function payload(m::Message)::Vector{UInt8}
+    enc = lowercase(first(split(header(m, "Transfer-Encoding"), ", ")))
+    return enc in ["", "identity", "chunked"] ? m.body : decode(m, enc)
+end
 
 payload(m::Message, ::Type{String}) =
     hasheader(m, "Content-Type", "ISO-8859-1") ? iso8859_1_to_utf8(payload(m)) :
                                                  String(payload(m))
 
 function decode(m::Message, encoding::String)::Vector{UInt8}
+    if enc == "gzip"
+        # Use https://github.com/bicycle1885/TranscodingStreams.jl ?
+    end
     @warn "Decoding of HTTP Transfer-Encoding is not implemented yet!"
     return m.body
 end