@verb #12:"@mail" any any any rxdo #55
@program #12:"@mail" any any any
"@mail <msg-sequence>                --- as in help @mail"
"@mail <msg-sequence> on <recipient> --- shows mail on mailing list or player."
set_task_perms(valid(caller_perms()) ? caller_perms() | player)
if (p = this:parse_mailread_cmd("@mail", args, this:mail_option("@mail") || "last:15", "on"))
  this:set_current_folder(folder = p[1])
  msg_seq = p[2]
  seq_size = folder:length_in_seq(msg_seq)
  if ((lim = player:mail_option("manymsgs")) && (lim <= seq_size && !$command_utils:yes_or_no(tostr("You are about to see ", seq_size, " message headers.  Continue?"))))
    player:notify(tostr("Aborted.  @mailoption manymsgs=", lim))
    return
  endif
  if (1 != seq_size)
    player:tell(seq_size, " messages", folder == this ? "" | " on " + $mail_agent:name(folder), ":")
  endif
  if (this.gaglist && (folder.owner in this.gaglist || folder in this.gaglist))
    player:tell("You are currently gagging ", folder:nn(), " or its owner ", folder.owner:nn(), ".  Therefore you can't read any messages on it.")
  endif
  folder:display_seq_headers(msg_seq, @p[3], @{0, $maxint, player}[length(p[3]) + 1..$])
  "  folder:display_seq_headers(msg_seq, @p[3]);"
endif
"Last modified by Lao-Tzu (#8084) on Tue Jan  8 04:33:59 2002 MST."
.