@verb #3797:"chan_join" this none this rxdo #833
@program #3797:"chan_join" this none this
$perm_utils:can_hack() || raise(E_PERM)
{id, @comms} = args
silent = 0
if (comms && typeof(comms[1]) != $OBJ)
  silent = comms[1]
  comms = comms[2..$]
endif
{members, history, atime, @options} = `this:get_chan(id) ! E_INVARG => {{}, {}, 0}'
for comm in (comms)
  comm:isa($comm) || raise(E_INVARG)
endfor
joining = $set_utils:diff(comms, members)
members = $set_utils:union(comms, members)
this:set_chan(id, {members, history, time(), @options})
for comm in (joining)
  if (!comm:_get_active())
    comm:_set_active(1)
  endif
  silent || comm:action("open")
endfor
"Last modified by Dax (#789) on Wed May  4 06:44:34 2005 MDT."
.