anchor.diff:      case lists:any(fun(#att{data=Data})-> Data /= stub end, Atts) of
       true ->
           WriteFun([<<"--", Boundary/binary,
  -                "\r\ncontent-type: application/json\r\n\r\n">>,
  +                "\r\nContent-Type: application/json\r\n\r\n">>,
                   JsonBytes, <<"\r\n--", Boundary/binary>>]),
           atts_to_mp(Atts, Boundary, WriteFun, SendEncodedAtts);
       false ->
  
positive.code:     atts_to_mp(RestAtts, Boundary, WriteFun, SendEncodedAtts);
  atts_to_mp([Att | RestAtts], Boundary, WriteFun,
          SendEncodedAtts)  ->
      WriteFun(<<"\r\n\r\n">>),
      AttFun = case SendEncodedAtts of
      false ->
  
negative.code:                 AccAttsSize +
                  4 + % "\r\n\r\n"
                  case SendEncodedAtts of
                  false ->
                      % header
                      length(integer_to_list(DiskLen)) +
                      DiskLen;
                  _ ->
                      % header
                      length(integer_to_list(AttLen)) +
                      AttLen
                  end +
                  4 + % "\r\n--"
                  size(Boundary) +
  
                  % attachment headers
                  % (the length of the Content-Length has already been set)
                  size(Name) +
                  size(Type) +
                  length("\r\nContent-Disposition: attachment; filename=\"\"") +
                  length("\r\nContent-Type: ") +
                  length("\r\nContent-Length: ") +
                  case Encoding of
                  identity ->
                      0;
                   _ ->
                      length(atom_to_list(Encoding)) +
                      length("\r\nContent-Encoding: ")
                  end
              end
          end, 0, Atts),
      if AttsSize == 0 ->
  