@verb #12:"@typo @suggest*ion @idea @comment" any any any rdo #55
@program #12:"@typo @suggest*ion @idea @comment" any any any
subject = tostr($string_utils:capitalize(verb[2..length(verb)]), ":  ", (loc = this.location).name, "(", loc, ")")
if (this != player)
  return $msg:mtell("huh")
elseif (argstr)
  result = $mail_agent:send_message(this, {loc.owner}, subject, argstr)
  if (result && result[1])
    player:notify(tostr("Your ", verb, " sent to ", $mail_agent:name_list(@listdelete(result, 1)), ".  Input is appreciated, as always."))
  else
    player:notify(tostr("Huh?  This room's owner (", loc.owner, ") is invalid?  Tell a wizard..."))
  endif
  return
elseif (!($object_utils:isa(loc, $room) && loc.free_entry))
  player:notify({tostr("You need to make it a one-liner, i.e., `", verb, " something or other'."), "This room may not let you back in if you go to the Mail Room."})
elseif ($object_utils:isa(loc, $editor))
  player:notify({tostr("You need to make it a one-liner, i.e., `", verb, " something or other'."), "Sending you to the Mail Room from an editor is usually a bad idea."})
else
  $mail_editor:invoke({tostr(loc.owner)}, verb, subject)
endif
if (verb == "@bug")
  player:notify("For a @bug report, be sure to mention exactly what it was you typed to trigger the error...")
endif
"Last modified by Dax (#789) on Mon Dec 10 21:33:30 2001 MST."
.