222
@verb #9359:"is_message_read is_message_unread" this none this rxdo #8084
@program #9359:"is_message_read is_message_unread" this none this
{message_id, who} = args
caller_perms():Controls(who) || raise(E_PERM)
data = `this.(" " + tostr(toint(who))) ! E_PROPNF'
mid = this:message_id(message_id)
if (data == E_PROPNF || !(i = listiassoc(this.message_ids[mid][2], data)) || !(mid in data[i]))
  return !index(verb, "unread")
else
  return !!index(verb, "unread")
endif
"Last modified by Dax (#789) on Tue May  3 14:12:00 2005 MDT."
.

0