+proc msg_INVITE {p c n chan} {
+ after 1000 [list sendout JOIN $chan]
+}
+
+proc grep {var predicate list} {
+ set o {}
+ upvar 1 $var v
+ foreach v $list {
+ if {[uplevel 1 [list expr $predicate]]} { lappend o $v }
+ }
+ return $o
+}
+
+proc msg_353 {p c dest type chan nicklist} {
+ global names_chans nick_onchans
+ if {![info exists names_chans]} { set names_chans {} }
+ set chan [irctolower $chan]
+ lappend names_chans $chan
+ foreach n [array names nick_onchans] {
+ upvar #0 nick_onchans($n) oc
+ set oc [grep tc {"$tc" != "$chan"} $oc]
+ }
+ foreach n [split $nicklist { }] {
+ regsub {^[@+]} $n {} n
+ check_nick $n
+ if {![string length $n]} continue
+ upvar #0 nick_onchans($n) oc
+ lappend oc $chan
+ }
+}
+
+proc msg_366 {p c args} {
+ global names_chans nick_onchans
+ if {[llength names_chans] > 1} {
+ foreach n [array names nick_onchans] {
+ upvar #0 nick_onchans($n) oc
+ set oc [grep tc {[lsearch -exact $tc $names_chans] >= 0} $oc]
+ if {![llength $oc]} { nick_forget $n }
+ }
+ }
+ unset names_chans
+}
+