@verb #46:"receive_message" this none this rxdo #55
@program #46:"receive_message" this none this
":receive_message(msg,from)"
if (!this:ok_write(caller, caller_perms()))
  return E_PERM
endif
$wiz_utils:autoextend(this)
if (!caller_perms().wizard)
  set_task_perms(caller.owner)
endif
this:lock_mail_agent()
new = caller:new_message_num()
this:set_message(new, args[1])
this.last_msg_date = args[1][1]
this.last_used_time = time()
this.locking_task = 0
return new
"Last modified by Dax (#789) on Wed Feb 11 14:36:28 1998 EST."
.