@verb #3797:"find_chan" this none this rxdo #833
@program #3797:"find_chan" this none this
"Find the best channel to use to connect the given communicators together."
{comms} = args
best = ""
best_score = 0
for id in (this:ls_chan())
  {members, history, atime, @options} = this:get_chan(id)
  score = length($set_utils:intersection(members, comms))
  if (score > best_score && !("/dev/null" in options))
    best = id
    best_score = score
  endif
endfor
return best
.