anchor.diff:      {started_open_doc_revs, NewRef} ->
           restart_remote_open_doc_revs(Ref, NewRef);
       {headers, Ref, Headers} ->
  -        case get_value("content-type", Headers) of
  +        case header_value("content-type", Headers) of
           {"multipart/related", _} = ContentType ->
               case couch_doc:doc_from_multi_part_stream(
                   ContentType,
  
positive.code:           (200, Headers, StreamDataFun) ->
              remote_open_doc_revs_streamer_start(Self),
              {<<"--">>, _, _} = couch_httpd:parse_multipart_request(
                  get_value("Content-Type", Headers),
                  StreamDataFun,
                  fun mp_parse_mixed/1
              );
  
negative.code:     receive {data, Ref, Data} ->
          {ok, Data, {LenLeft - iolist_size(Data), Id}}
      end.
  
  header_value(Key, Headers) ->
      header_value(Key, Headers, undefined).
  
  header_value(Key, Headers, Default) ->
      Headers1 = [{string:to_lower(K), V} || {K, V} <- Headers],
      case lists:keyfind(string:to_lower(Key), 1, Headers1) of
          {_, Value} ->
              Value;
          _ ->
              Default
      end.
  