View/Edit #12:@read @peek

Switch to edit mode.

Name(s): @read @peek
1:  "@read <msg>...                  -- as in help @read"
2:  "@read <msg>... on *<recipient>  -- reads messages on recipient."
3:  "@peek ...                       -- like @read, but don't set current message"
4:  set_task_perms(valid(caller_perms()) ? caller_perms() | player)
5:  $mail_agent:mailread_semaphore_enter(this)
6:  if (p = this:parse_mailread_cmd("@read", args, "", "on"))
7:    this:set_current_folder(folder = p[1])
8:    msg_seq = p[2]
9:    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?"))))
10:     player:notify(tostr("Aborted.  @mailoption manymsgs=", lim))
11:     $mail_agent:mailread_semaphore_exit(this)
12:     return
13:   endif
14:   this._mail_task = task_id()
15:   if (cur = folder:display_seq_full(msg_seq, tostr("Message %d on " + $mail_agent:name(folder), ":")))
16:     if (verb != "@peek")
17:       for x in [msg_seq[1]..msg_seq[2] - 1]
18:         $mail_db:set_message_read(`folder:get_message_id(x) ! ANY => "<unknown-message>"', player, folder)
19:       endfor
20:       this:set_current_message(folder, @cur)
21:     endif
22:   endif
23:   if (!this:mail_option("expert"))
24:     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>")
25:   endif
26: endif
27: $mail_agent:mailread_semaphore_exit(this)
28: "Last modified by whiz (#3135) on Sat Jan 19 17:09:00 2008 EST."

Verb arguments: any any any
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]