anchor.diff:  %%           our users identity.
   %% Returns:  true | false | drop
   %%--------------------------------------------------------------------
  -verify_homedomain_user(Request, LogTag) when is_record(Request, request) ->
  +verify_homedomain_user(Request, LogTag, Origin, LogStr) when is_record(Request, request), is_list(LogTag),
  +							     is_record(Origin, siporigin), is_list(LogStr) ->
       Method = Request#request.method,
       Header = Request#request.header,
       case sipserver:get_env(always_verify_homedomain_user, true) of
  
positive.code:     %% authorized and authenticated to use this From: address
      case local:homedomain(FromURI#sipurl.host) of
  	true ->
  	    case verify_homedomain_user(Request, LogTag) of
  		true ->
  		    do_request(Request, Origin);
  		false ->
  
negative.code: 	{{false, eperm}, SipUser} when SipUser /= none ->
  	    logger:log(normal, "~s: incomingproxy: SipUser ~p NOT ALLOWED to REGISTER address ~s",
  		       [LogTag, SipUser, sipurl:print(ToURL)]),
  	    transactionlayer:send_response_handler(THandler, 403, "Forbidden"),
  	    %% Make event about users failure to register
  	    L = [{register, forbidden}, {user, SipUser}, {address, sipurl:print(ToURL)}],
  	    event_handler:generic_event(normal, location, LogTag, L);
  	{{false, nomatch}, SipUser} when SipUser /= none ->
  	    logger:log(normal, "~s: incomingproxy: SipUser ~p tried to REGISTER invalid address ~s",
  		       [LogTag, SipUser, sipurl:print(ToURL)]),
  	    transactionlayer:send_response_handler(THandler, 404, "Not Found"),
  	    %% Make event about users failure to register
  	    L = [{register, invalid_address}, {user, SipUser}, {address, sipurl:print(ToURL)}],
  	    event_handler:generic_event(normal, location, LogTag, L);
  	{false, none} ->
  	    Prio = case keylist:fetch('authorization', Header) of
  		       [] -> debug;
  