@verb #9359:"get_unread_messages" this none this rxdo #8084
@program #9359:"get_unread_messages" this none this
"ng used to be optional, is now required."
{who, ng} = args
caller_perms():controls(who) || raise(E_PERM)
propname = " " + tostr(toint(who))
data = `this.(propname) ! E_PROPNF'
retval = {}
if (data == E_PROPNF)
  return {}
else
  i = listiassoc(ng, data)
  if (!i)
    return {}
  endif
  for x in (`data[i][2..$] ! E_RANGE => {}')
    suspend(0)
    if (x == 0)
      continue
    endif
    retval = {@retval, this.message_ids[x][1]}
  endfor
  return retval
endif
"Last modified by Dax (#789) on Tue May  3 14:12:00 2005 MDT."
.