View/Edit #12:@mail

Switch to edit mode.

Name(s): @mail
1:  "@mail <msg-sequence>                --- as in help @mail"
2:  "@mail <msg-sequence> on <recipient> --- shows mail on mailing list or player."
3:  set_task_perms(valid(caller_perms()) ? caller_perms() | player)
4:  if (p = this:parse_mailread_cmd("@mail", args, this:mail_option("@mail") || "last:15", "on"))
5:    this:set_current_folder(folder = p[1])
6:    msg_seq = p[2]
7:    seq_size = folder:length_in_seq(msg_seq)
8:    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?"))))
9:      player:notify(tostr("Aborted.  @mailoption manymsgs=", lim))
10:     return
11:   endif
12:   if (1 != seq_size)
13:     player:tell(seq_size, " messages", folder == this ? "" | " on " + $mail_agent:name(folder), ":")
14:   endif
15:   if (this.gaglist && (folder.owner in this.gaglist || folder in this.gaglist))
16:     player:tell("You are currently gagging ", folder:nn(), " or its owner ", folder.owner:nn(), ".  Therefore you can't read any messages on it.")
17:   endif
18:   folder:display_seq_headers(msg_seq, @p[3], @{0, $maxint, player}[length(p[3]) + 1..$])
19:   "  folder:display_seq_headers(msg_seq, @p[3]);"
20: endif
21: "Last modified by Lao-Tzu (#8084) on Tue Jan  8 04:33:59 2002 MST."

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]