anchor.diff:  
   accumulate_multipart_data(Req, Acc, BufferSize) ->
       case multipart_data(Req) of  % This will return ?UPLOAD_PART_SIZE of data or end_of_part
  -        {end_of_part, NewReq} -> 
  +        {end_of_part, NewReq} ->
               {done, Acc, NewReq};
  -        {body, Binary, NewReq} -> 
  +        {body, Binary, NewReq} ->
               accumulate_multipart_data(NewReq, <<Acc/binary, Binary/binary>>, BufferSize);
  -        Error -> 
  +        Error ->
               throw({"Error in accumulate_multipart_data", Error})
  -    end.           
  -    
  +    end.
  +
   
   % Writes a chunk of data to a file via logical_files_manager
   write_to_file(Binary, FullPath) ->
  
positive.code:     PHeaders2 = lists:keystore(<<"content-length">>, 1, PHeaders,
          {<<"content-length">>, Length}),
      PHeaders3 = lists:keydelete(<<"transfer-encoding">>, 1, PHeaders2),
      Req#http_req{buffer=Rest, body_state=done,
          headers=Headers3, p_headers=PHeaders3}.
  
  %% @todo Probably needs a Rest.
  -spec content_decode(content_decode_fun(), binary(), Req)
      -> {ok, binary(), Req} | {error, atom()} when Req::req().
  content_decode(ContentDecode, Data, Req) ->
      case ContentDecode(Data) of
          {ok, Data2} -> {ok, Data2, Req};
  
negative.code:     end.
  
  -spec transfer_decode_done(non_neg_integer(), binary(), Req)
              -> Req when Req :: req().
  transfer_decode_done(Length, Rest, Req = #http_req{
          headers = Headers, p_headers = PHeaders}) ->
      Headers2 = lists:keystore(<<"content-length">>, 1, Headers,
          {<<"content-length">>, list_to_binary(integer_to_list(Length))}),
      %% At this point we just assume TEs were all decoded.
  