setudef flag allvoice

bind join - * *join:allvoice

proc *join:allvoice {nick uhost hand chan} {
  if {[isbotnick $nick] || ![botisop $chan]} {
    return 0
  }
  foreach setting [channel info $chan] {
    if {[regexp -- {^[\+-]} $setting]} {
      if {![string compare "+allvoice" $setting]} {
        pushmode $chan +v $nick
      }
    }
  }
}