View/Edit #12:make_current_message

Switch to edit mode.

Name(s): make_current_message
1: ":make_current_message(recipient)"
2: "starts a new current_message record for recipient"
3: if (caller != this && !$perm_utils:controls(caller_perms(), this))
4:   raise(E_PERM)
5: elseif ((recip = args[1]) != this && !listassoc(cm = this.current_message, recip))
6:   this.current_message = listappend(cm, {recip, 0, 0})
7: endif
8: "Last modified by whiz (#3135) on Wed Jan 24 00:28:37 2007 EST."

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]