View/Edit #12:@unrmm*ail

Switch to edit mode.

Name(s): @unrmm*ail
1:  "@unrmm [on <recipient>]  -- undoes the previous @rmm on that recipient."
2:  set_task_perms(player)
3:  if (!(p = this:parse_folder_spec("@unrmm", args, "on")))
4:    return
5:  endif
6:  dobjstr = $string_utils:from_list(p[2], " ")
7:  if (!dobjstr)
8:    do = "undo_rmm"
9:  elseif (index("expunge", dobjstr) == 1)
10:   do = "expunge_rmm"
11: elseif (index("list", dobjstr) == 1)
12:   do = "list_rmm"
13: else
14:   player:notify(tostr("Usage:  ", verb, " [expunge|list] [on &lt;recipient&gt;]"))
15:   return
16: endif
17: this:set_current_folder(folder = p[1])
18: if (msg_seq = folder:(do)())
19:   if (do == "undo_rmm")
20:     player:notify(tostr($seq_utils:size(msg_seq), " messages restored to ", $mail_agent:name(folder), "."))
21:     folder:display_seq_headers(msg_seq, 0)
22:   else
23:     player:notify(tostr(msg_seq, " zombie message", msg_seq == 1 ? " " | "s ", do == "expunge_rmm" ? "expunged from " | "on ", $mail_agent:name(folder), "."))
24:   endif
25: elseif (typeof(msg_seq) == $ERR)
26:   player:notify(tostr(msg_seq))
27: else
28:   player:notify(tostr("No messages to ", do == "expunge_rmm" ? "expunge from " | "restore to ", $mail_agent:name(folder)))
29: endif
30: "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]