anchor.diff:  		   {"Call-ID", keylist:fetch("Call-ID", Header)},
   		   {"CSeq", keylist:fetch("CSeq", Header)} | ExtraHeaders], Body).
   
  -location_prio([]) ->
  -    {none, [], none, never};
  -location_prio([Address]) ->
  -    Address;
  -location_prio([Address | Rest]) ->
  -    Address2 = location_prio(Rest),
  -    {Location1, Flags1, Class1, Expire1} = Address,
  -    {Location2, Flags2, Class2, Expire2} = Address2,
  -    Prio1 = lists:keysearch(priority, 1, Flags1),
  -    Prio2 = lists:keysearch(priority, 1, Flags2),
  -    case {Prio1, Prio2} of
  -	{_, false} ->
  -	    Address;
  -	{false, _} ->
  -	    Address2;
  -	{{value, {priority,P1}}, {value, {priority,P2}}} when P1 >= P2 ->
  -	    Address;
  -	_ ->
  -	    Address2
  -    end.
  -
   send_proxy_response(Socket, Status, Reason, Header, Body) ->
       [Self | Via] = sipheader:via(keylist:fetch("Via", Header)),
       Keylist = keylist:set("Via", sipheader:via_print(Via),
  
positive.code:     % registers replacing erlier bindings (10.3 #7)
  
      check_valid_register_request(Header),
      
      % try to find a wildcard to process
      case process_register_wildcard_isauth(Header, Socket, Phone, Auxphones, Contacts) of
  	none ->
  
negative.code: -module(siprequest).
  -export([send_redirect/3, process_register_isauth/5,
  	 send_auth_req/4, send_proxyauth_req/4,
  	 send_proxy_request/3, send_proxy_request/4, send_answer/3,
  	 send_notavail/2, send_notfound/2, send_proxy_response/5,
  	 send_result/5, send_result/6, make_answerheader/1]).
  
  send_response(Socket, Code, Text, Header, Body) ->
      Via = sipheader:via(keylist:fetch("Via", Header)),
  