233
@verb #9359:"get_newsgroup_for_id" this none this rxdo #8084
@program #9359:"get_newsgroup_for_id" this none this
{mess_id} = args
mid = this:message_id(mess_id)
if (valid(this.message_ids[mid][2]))
  return this.message_ids[mid][2]
endif
ticks_left() < 10000 && suspend(0)
for x in ({@$newsgroup:leaves(), @$player:leaves()})
  if (x:get_msgnum_from_id(this.message_ids[mid][1]))
    this.message_ids[mid][2] = x
    return x
  endif
  $cmd_utils:suspend_if_needed(0)
endfor
"Last modified by Lao-Tzu (#8084) on Mon Jan  7 14:39:28 2002 MST."
.

0