@verb #8045:"receive_message" this none this rxdo #8045
@program #8045:"receive_message" this none this
"Copied from Raptor (#6319):receive_message Oct 26 02:29:36 1997"
if (!$perm_utils:controls(caller_perms(), this) && caller != this)
  return E_PERM
endif
{msg, from} = args
if (from in this.refuse_mail)
  this:tell(from:title(), " just tried to send you mail, it has been blocked.")
  raise(E_PERM, "Myra is currently refusing mail from you, sorry.")
endif
return pass(@args)
.