View/Edit #119:old_update_newsgroups

Switch to edit mode.

1:  groups = this:all_newsgroups()[1]
2:  newsies = {}
3:  if (this.current_newsgroups)
4:    for x in (this.current_newsgroups)
5:      newsies = {@newsies, @$set_utils:difference(groups, x[2])}
6:    endfor
7:    newsies && (this.current_newsgroups = {@this.current_newsgroups, {time(), newsies}})
8:  else
9:    this.current_newsgroups = {{time(), groups}}
10: endif
11: suspend(0)
12: "Auck...gotta check for non-existant newsgroups."
13: for x in [1..length(this.current_newsgroups)]
14:   cng = this.current_newsgroups[x]
15:   for y in (cng[2])
16:     if (!y:isa($newsgroup) || y.location != $mail_agent)
17:       this.current_newsgroups[x][2] = setremove(cng[2], y)
18:       $command_utils:suspend_if_needed()
19:     endif
20:   endfor
21:   if (!this.current_newsgroups[x][2])
22:     "Cleanup if one set suddenly became blank...new set of groups didn't do so well."
23:     this.current_newsgroups = listdelete(this.current_newsgroups, x)
24:   endif
25: endfor
26: "Last modified by Dax (#789) on Sat May 16 14:19:29 1998 EDT."

[home | help | who | search | setup | code]