@verb #12:"@read @peek" any any any rxdo #55
@program #12:"@read @peek" any any any
"@read <msg>...                  -- as in help @read"
"@read <msg>... on *<recipient>  -- reads messages on recipient."
"@peek ...                       -- like @read, but don't set current message"
set_task_perms(valid(caller_perms()) ? caller_perms() | player)
$mail_agent:mailread_semaphore_enter(this)
if (p = this:parse_mailread_cmd("@read", args, "", "on"))
  this:set_current_folder(folder = p[1])
  msg_seq = p[2]
  if ((lim = player:mail_option("manymsgs")) && (lim <= (seq_size = $seq_utils:size(msg_seq)) && !$command_utils:yes_or_no(tostr("You are about to see ", seq_size, " messages.  Continue?"))))
    player:notify(tostr("Aborted.  @mailoption manymsgs=", lim))
    $mail_agent:mailread_semaphore_exit(this)
    return
  endif
  this._mail_task = task_id()
  if (cur = folder:display_seq_full(msg_seq, tostr("Message %d on " + $mail_agent:name(folder), ":")))
    if (verb != "@peek")
      for x in [msg_seq[1]..msg_seq[2] - 1]
        $mail_db:set_message_read(`folder:get_message_id(x) ! ANY => "<unknown-message>"', player, folder)
      endfor
      this:set_current_message(folder, @cur)
    endif
  endif
  if (!this:mail_option("expert"))
    player:tell("<FONT COLOR=\"#7F7F7F\">Common mail commands:  <A xch_cmd=\"@next\">@next</A> | <A xch_cmd=\"@prev\">@prev</A> | <A xch_cmd=\"@mail\">@mail</A> | <A xch_cmd=\"@reply\">@reply</A> | <A xch_cmd=\"@rn\">@rn</A></FONT>")
  endif
endif
$mail_agent:mailread_semaphore_exit(this)
"Last modified by Lao-Tzu (#8084) on Fri Aug 30 07:18:16 2002 MDT."
.