43c
@verb #119:"old_update_newsgroups" this none this rxdo #9682
@program #119:"old_update_newsgroups" this none this
groups = this:all_newsgroups()[1]
newsies = {}
if (this.current_newsgroups)
  for x in (this.current_newsgroups)
    newsies = {@newsies, @$set_utils:difference(groups, x[2])}
  endfor
  newsies && (this.current_newsgroups = {@this.current_newsgroups, {time(), newsies}})
else
  this.current_newsgroups = {{time(), groups}}
endif
suspend(0)
"Auck...gotta check for non-existant newsgroups."
for x in [1..length(this.current_newsgroups)]
  cng = this.current_newsgroups[x]
  for y in (cng[2])
    if (!y:isa($newsgroup) || y.location != $mail_agent)
      this.current_newsgroups[x][2] = setremove(cng[2], y)
      $command_utils:suspend_if_needed()
    endif
  endfor
  if (!this.current_newsgroups[x][2])
    "Cleanup if one set suddenly became blank...new set of groups didn't do so well."
    this.current_newsgroups = listdelete(this.current_newsgroups, x)
  endif
endfor
"Last modified by Dax (#789) on Sat May 16 14:19:29 1998 EDT."
.

0