anchor.diff:  fold_header(HeaderLine, List) ->
       [Name, Value] = binary:split(HeaderLine, <<?HCOLON>>),
       Name2 = sip_binary:to_lower(sip_binary:trim_trailing(Name)),
  -    Name3 = binary_to_header_name(Name2),
  +    Name3 = process(pn, Name2, ignored),
       [{Name3, sip_binary:trim_leading(Value)} | List].
  -
  -%% @doc Converting short binary name to header name atom
  -%% @end
  -binary_to_header_name(Name) ->
  -    case Name of
  -        <<"v">> -> 'via';
  -        <<"l">> -> 'content-length';
  -        <<"f">> -> 'from';
  -        <<"t">> -> 'to';
  -        <<"i">> -> 'call-id';
  -        <<"m">> -> 'contact';
  -        <<"k">> -> 'supported';
  -        Bin -> sip_binary:binary_to_existing_atom(Bin)
  -    end.
  -
  -%% @doc Converting header name atom back to binary
  -%% @end
  -header_name_to_binary(Name) when is_binary(Name) -> Name;
  -header_name_to_binary(Name) when is_atom(Name) ->
  -    case Name of
  -        'accept' -> <<"Accept">>;
  -        'accept-encoding' -> <<"Accept-Encoding">>;
  -        'accept-language' -> <<"Accept-Language">>;
  -        'alert-info' -> <<"Alert-Info">>;
  -        'allow' -> <<"Allow">>;
  -        'authentication-info' -> <<"Authentication-Info">>;
  -        'authorization' -> <<"Authorization">>;
  -        'call-id' -> <<"Call-Id">>;
  -        'call-info' -> <<"Call-Info">>;
  -        'contact' -> <<"Contact">>;
  -
  -
  -        'via' -> <<"Via">>;
  -        'content-length' -> <<"Content-Length">>;
  -        'cseq' -> <<"CSeq">>;
  -        'max-forwards' -> <<"Max-Forwards">>;
  -        'from' -> <<"From">>;
  -        'to' -> <<"To">>;
  -        'require' -> <<"Require">>;
  -        'proxy-require' -> <<"Proxy-Require">>;
  -        'supported' -> <<"Supported">>;
  -        'unsupported' -> <<"Unsupported">>;
  -        Name -> atom_to_binary(Name, utf8)
  -    end.
   
   %% Parse standard Via: parameters
   parse_via_param('ttl', TTL) -> sip_binary:binary_to_integer(TTL);
  
positive.code:                     info(<<"http://www.example.com/alice/">>, [{purpose, info}, {param, <<"value">>}])],
                     parse('call-info', <<"<http://wwww.example.com/alice/photo.jpg> ;purpose=icon, <http://www.example.com/alice/> ;purpose=info;param=\"value\"">>)),
       ?_assertEqual(<<"<http://wwww.example.com/alice/photo.jpg>;purpose=icon, <http://www.example.com/alice/>;purpose=info;param=value">>,
                     format('alert-info',
                            [info(<<"http://wwww.example.com/alice/photo.jpg">>, [{purpose, icon}]),
                             info(<<"http://www.example.com/alice/">>, [{purpose, info}, {param, <<"value">>}])])),
  
  
negative.code: 
                                     {'content-length', <<"5">>}, {'via', <<"SIP/2.0/UDP localhost">>},
                                     {'from', <<"sip:alice@localhost">>}, {'to', <<"sip:bob@localhost">>},
                                     {'cseq', <<"123 INVITE">>}, {'max-forwards', 70}, {'x-custom-atom', 25},
                                     {'allow', <<"INVITE, ACK, CANCEL, OPTIONS, BYE">>},
                                     {'supported', <<"100rel">>}, {'unsupported', <<"bar, baz">>},
                                     {'require', <<"foo">>}, {'proxy-require', <<"some">>},
  