View/Edit #12:@rmm*ail

Switch to edit mode.

Name(s): @rmm*ail
1:  "@rmm <message-sequence> [from <recipient>].   Use @unrmm if you screw up."
2:  " Beware, though.  @unrmm can only undo the most recent @rmm."
3:  set_task_perms(player)
4:  if (!(p = this:parse_mailread_cmd("@rmm", args, "cur", prepstr == "on" ? "on" | "from")))
5:    "...parse failed, we've already complained..."
6:  elseif (!prepstr && (p[1] != this && !$command_utils:yes_or_no("@rmmail from " + $mail_agent:name(p[1]) + ".  Continue?")))
7:    "...wasn't the folder player was expecting..."
8:    player:notify("@rmmail aborted.")
9:  else
10:   this:set_current_folder(folder = p[1])
11:   e = folder:rm_message_seq(p[2])
12:   if (typeof(e) == $ERR)
13:     player:notify(tostr(e))
14:   else
15:     count = (n = $seq_utils:size(p[2])) == 1 ? "." | tostr(" (", n, " messages).")
16:     fname = folder == this ? "" | " from " + $mail_agent:name(folder)
17:     player:notify(tostr("Deleted ", e, fname, count))
18:   endif
19: endif
20: "Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."

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

You are not logged in.

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