@verb #119:"old_all_newsgroups" this none this rxdo #9682
@program #119:"old_all_newsgroups" this none this
nums = names = {}
for x in ($mail_agent.contents)
  if (x:isa($newsgroup))
    nums = {@nums, x}
    names = {@names, this:newsgroup_name(x)}
  endif
endfor
return {nums, names}
"Last modified by Dax (#789) on Tue Feb 10 12:47:52 1998 EST."
.