1ba
@verb #12:"make_current_message" this none this rxdo #55
@program #12:"make_current_message" this none this
":make_current_message(recipient)"
"starts a new current_message record for recipient"
if (caller != this && !$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
elseif ((recip = args[1]) != this && !$list_utils:assoc(recip, cm = this.current_message))
  this.current_message = listappend(cm, {recip, 0, 0})
endif
.

0