anchor.diff:      %% authorized and authenticated to use this From: address
       case local:homedomain(FromURI#sipurl.host) of
   	true ->
  -	    case verify_homedomain_user(Request, LogTag) of
  +	    case verify_homedomain_user(Request, LogTag, Origin, LogStr) of
   		true ->
   		    do_request(Request, Origin);
   		false ->
  
positive.code:     case local:can_register(NewHeader, ToURL) of
  	{{true, _}, SIPuser} ->
  	    Contacts = sipheader:contact(Header),
  	    logger:log(debug, "Register: Contact(s) ~p", [sipheader:contact_print(Contacts)]),
  	    logger:log(debug, "~s: Registering contacts for SIP user ~p", [LogTag, SIPuser]),
  	    %% RFC 3261 chapter 10.3 - Processing REGISTER Request - step 6, step 7 and step 8
  	    case catch siplocation:process_register_isauth(LogTag ++ ": incomingproxy",
  							   NewHeader, SIPuser, Contacts) of
  		{ok, {Status, Reason, ExtraHeaders}} ->
  		    transactionlayer:send_response_handler(THandler, Status, Reason, ExtraHeaders);
  		{siperror, Status, Reason} ->
  		    transactionlayer:send_response_handler(THandler, Status, Reason);
  		{siperror, Status, Reason, ExtraHeaders} ->
  
negative.code: %%           our users identity.
  %% Returns:  true | false | drop
  %%--------------------------------------------------------------------
  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
  