@verb #12:"receive_message" this none this rxdo #55
@program #12:"receive_message" this none this
":receive_message(msg,from)"
if (!$perm_utils:controls(caller_perms(), this) && caller != this)
  return E_PERM
endif
if (this:mail_option("netmail"))
  msg = args[1]
  message = {msg[4] + " (fwd)", "Original-date: " + ctime(msg[1]), "Original-From: " + msg[2], "Original-To: " + msg[3], "Reply-To: " + args[2].name + "@" + $name + ".moo.mud.org"}
  "  for x in (msg[5..length(msg)])"
  "    message = {@message, @$editor:fill_string(x, this:linelength())};"
  "  endfor"
  message = {@message, @msg[5..length(msg)]}
  if (this:send_self_netmail(message, @listdelete(args, 1)) == 0)
    return 0
  endif
endif
"set_task_perms(this.owner);"
this:lock_mail_agent()
new = this:new_message_num()
"I'm not sure what the point of the below code was. - Lao"
"ncur = (new <= 1) ? 0 | min(this:current_message(this), new);"
"this:set_current_message(this, ncur);"
"new = max(new, ncur + 1);"
this:set_message(new, args[1])
this.locking_task = 0
"this:mail_notify(args[2], {this}, {new});"
return new
"Last modified by Cecil (#7407) on Sat Aug 24 10:19:13 2002 MDT."
.