@verb #3512:"@newsgroups newsgroups @groups groups @recipients recipients" none none none rxdo #6319
@program #3512:"@newsgroups newsgroups @groups groups @recipients recipients" none none none
"@newsgroups [@groups, @mailing, @mailinglists, @lists]"
""
"Gives a nice list of public newsgroups."
""
"A verb brought to you by Jay (#8438), slightly modified by Raptor (#6319)."
this:update_usage("newsgroups", player)
caller != this && player:tell("Searching for mailing lists. . .")
groups = {}
for x in ($mail_agent.contents)
  x.readers == 1 && (groups = {@groups, {x:title(), x, $list_utils:shortest(x:mail_names()), $tcm ? "N/A" | length(x:subscribers()), x.owner.name, x.owner}})
endfor
!$tcm && (groups = $list_utils:sort(groups))
player:tellcolumns({28, 5, 6, 4, 20, 5}, {"Group Name", "#", "Alias", "Sub.", "Owner/Moderator", "#"}, @groups)
player:tell("*** End of List ***")
return player:tell("For more information on each list, try looking at the list number, or contacting the moderator.")
"Last modified by Lao-Tzu (#8084) on Sun Sep 12 09:28:12 1999 MDT."
.