View/Edit #12:kill_current_message

Switch to edit mode.

Name(s): kill_current_message
1: ":kill_current_message(recipient)"
2: "entirely forgets current message for this recipient..."
3: "Returns true iff successful."
4: if (caller != this && !$perm_utils:controls(caller_perms(), this))
5:   raise(E_PERM)
6: else
7:   return (recip = args[1]) != this && ((i = $list_utils:iassoc(recip, cm = this.current_message)) && (this.current_message = listdelete(cm, i)))
8: endif

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

You are not logged in.

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