@verb #9359:"new_message" this none this rxdo #8084
@program #9359:"new_message" this none this
caller_perms().wizard || raise(E_PERM)
{newsgroup, message_id} = args
data = {}
for x in ($player:leaves())
  if (listiassoc(newsgroup, `x.current_message[3..$] ! E_RANGE => {}') && (newsgroup:isa($newsgroup) ? newsgroup:is_readable_by(x) | 1))
    data = {@data, x}
  endif
  $cmd_utils:suspend_if_needed(0)
endfor
if (newsgroup:isa($player))
  data = {@data, newsgroup}
endif
for x in (data)
  this:set_message_unread(message_id, x, newsgroup)
  $cmd_utils:suspend_if_needed(0)
endfor
"Last modified by Lao-Tzu (#8084) on Sun Apr  7 20:31:21 2002 MDT."
.