@verb #12:"@answer @repl*y" any any any rdo #55
@program #12:"@answer @repl*y" any any any
"@answer <msg> [on *<recipient>] [<flags>...]"
set_task_perms(who = valid(caller_perms()) ? caller_perms() | player)
if (p = this:parse_mailread_cmd(verb, args, "", "on", 1))
  if ($seq_utils:size(p[2]) != 1)
    player:notify("You can only answer *one* message at a time.")
  elseif (LIST != typeof(flags_replytos = $mail_editor:check_answer_flags(@p[4])))
    player:notify({tostr("Usage:  ", verb, " [message-# [on &lt;recipient&gt;]] [flags...]"), "where flags include any of:", "  all        reply to everyone", "  sender     reply to sender only", "  include    include the original message in your reply", "  noinclude  don't include the original in your reply"})
  else
    this:set_current_folder(p[1])
    $mail_editor:invoke(2, verb, {p[1], p[2][1]}, @flags_replytos)
  endif
endif
"Last modified by Lao-Tzu (#8084) on Sun Jan  6 10:51:03 2002 MST."
.