anchor.diff:  
   
   %% @doc Find all users with a certain e-mail address
  -%% @todo TODO
  -lookup_by_email(_Handle, _Context) ->
  -	[].
  +lookup_by_email(Handle, Context) ->
  +    case lists:member($@, Handle) of
  +        true -> 
  +            Rows = m_identity:lookup_by_type_and_key_multi(email, Handle, Context),
  +            [ proplists:get_value(rsc_id, Row) || Row <- Rows ];
  +        false ->
  +            []
  +    end.
   
   
   %% Send an e-mail reminder to the listed ids.
  
positive.code: 					logon_error(Context);
  				Identities ->
  					% @todo TODO check if reminder could be sent (maybe there is no e-mail address)
  					?DEBUG(Identities),
  					send_reminder(Identities, Context),
  					reminder_success(Context)
  			end
  
negative.code: 
  % @doc Find all identities with the given handle.  The handle is either an e-mail address or an username.
  lookup_identities(Handle, Context) ->
      Handle1 = z_string:trim(Handle),
  	lookup_by_username(Handle1, Context) ++ lookup_by_email(Handle1, Context).
  
  lookup_by_username(Handle, Context) ->
  	case m_identity:lookup_by_username(Handle, Context) of
  