@verb #7854:"subscribed subscribed_notify" this none this rxdo #7854
@program #7854:"subscribed subscribed_notify" this none this
"This isn't fully functional yet. -Ben"
ng = args[1]
if (!typeof(ng) == $OBJ || !valid(ng))
  return E_INVARG
endif
if (verb == "subscribed_notify")
  people = ng.mail_notify
  "Just to make sure all the entries are valid."
  for x in (people)
    if (!valid(x))
      people = setremove(people, x)
    endif
  endfor
  return LIST
endif
"Oh My God, this is going to be some intensive code... there has got to be"
"a simpler way of getting this to work.  WIZ-Perms and suspends... blech."
people = {}
for person in (players())
  for x in (person.current_message)
    if (typeof(x) == $LIST)
      if (x[1] == ng)
        people = setadd(people, person)
      endif
    endif
    $cmd_utils:suspend_if_needed(0)
  endfor
  $cmd_utils:suspend_if_needed(0)
endfor
"Last modified by Dax (#789) on Tue May  3 13:49:43 2005 MDT."
.