anchor.diff:  %% from-spec      =  ( name-addr / addr-spec ) *( SEMI from-param )
   %% from-param     =  tag-param / generic-param
   %%
  +%% name-addr      =  [ display-name ] LAQUOT addr-spec RAQUOT
  +%% addr-spec      =  SIP-URI / SIPS-URI / absoluteURI
  +%% display-name   =  *(token LWS)/ quoted-string
  +parse_header(Name, Bin) when Name =:= 'from'; Name =:= 'to' ->
  +    {Top, <<>>} = parse_address(Bin),
  +    Top;
   %% Contact        =  ("Contact" / "m" ) HCOLON
   %%                  ( STAR / (contact-param *(COMMA contact-param)))
   %% contact-param  =  (name-addr / addr-spec) *(SEMI contact-params)
  
positive.code:     {lists:reverse(List), sip_binary:trim_leading(Bin)}.
  
  
  %% @doc
  %% Parse From/To header into display name, URI and binary with all the rest parameters
  %% @end
  parse_fromto(<<?DQUOTE, _/binary>> = Bin) ->
      % name-addr with quoted-string display-name
      {Display, <<?LAQUOT, Rest/binary>>} = sip_binary:parse_quoted_string(Bin),
      {URI, <<?RAQUOT, Params/binary>>} = sip_binary:parse_until(Rest, ?RAQUOT),
      {Display, URI, Params};
  parse_fromto(<<?LAQUOT, Rest/binary>>) ->
      % name-addr without display-name
      {URI, <<?RAQUOT, Rest2/binary>>} = sip_binary:parse_until(Rest, ?RAQUOT),
      {<<>>, URI, Rest2};
  parse_fromto(Bin) ->
      % either addr-spec or name-addr with token-based display-name
      case sip_binary:parse_until(Bin, ?LAQUOT) of
          {_Any, <<>>} ->
  
negative.code: 
          {Display, <<?LAQUOT, Rest/binary>>} ->
              % name-addr with token-based display-name
              {URI, <<?RAQUOT, Params/binary>>} = sip_binary:parse_until(Rest, ?RAQUOT),
              {Display, URI, Params}
      end.
  
  %% @doc Parse address-like header together with all parameters
  %%
  %% Parses values like
  %% ```
  %% value       = ( name-addr / addr-spec ) *( SEMI param )
  %% param       =  tag-param / generic-param
  %% '''
  %% @end
  parse_address(Bin) ->
      {Display, URI, Bin2} = parse_address_uri(sip_binary:trim_leading(Bin)),
      {Params, Bin3} = parse_params(sip_binary:trim_leading(Bin2), []),
      Value = #sip_hdr_address{display_name = sip_binary:trim(Display),
                               uri = URI,
                               params = Params},
      {Value, Bin3}.
  
  %% @doc
  %% Format header into the binary.
  