anchor.diff:  build_header_unsafe_binary(Header) ->
       %% process each line in Header
       Lines = keylist:map(fun print_one_header_binary/3, Header),
  -    list_to_binary(sort_headers(Lines)).
  +    sort_headers(Lines).
   
   %%--------------------------------------------------------------------
   %% @spec    (In) -> binary()
  
positive.code:     sort_headers2(T, R#header_sort{rest = NewRest});
  sort_headers2([], R) ->
      [_ | Headers] = tuple_to_list(R),
      Headers.
  
  %% Returns : list() of {Key, Binary}
  %%           Key = atom() or string(), keylist normalized header name
  %%           Binary = binary(), this header as binary (<<"Supported: something\r\n">> for example
  print_one_header_binary(Key, Name, []) ->
      %% Header without value.
  
negative.code: 	    Key == 'rtp-txstat' ->	true;	%% Cisco 79xx
  	    true -> false
  	end,
      This = print_one_header_binary3(OneLine, Name, ValueList),
      {Key, list_to_binary(This)}.
  
  %% print_one_header_binary3 - create the binary representation of this header
  %% and all it's values
  print_one_header_binary3(true, Name, ValueList) ->
      %% return as one line
      Joined = join_values(ValueList, []),
      [Name, $:, 32, Joined, 13, 10];
  
  print_one_header_binary3(false, Name, [First | Rest]) ->
      %% Return one "Key: Value" for every element in BinValueList
      This = [Name, $:, 32, First, 13, 10],	%% Name: First\r\n
      [This | print_one_header_binary3(false, Name, Rest)];
  print_one_header_binary3(false, _Name, []) ->
      [].
  
  %% join a list of elements with a string ", " between each one.
  join_values([H | T], []) ->
      join_values(T, [H]);
  join_values([H | T], Res) ->
      join_values(T, [H, ", ", Res]);
  join_values([], Res) ->
      lists:reverse(Res).
  
  %%--------------------------------------------------------------------
  %% @spec    ([String]) ->
  