+proc allchans_shortly {} {
+ global chan_after onchans shortly_alling
+ if {[info exists shortly_alling]} {
+ ldebug {} "global check already pending"
+ return
+ }
+ foreach ch [array names onchans] {
+ manyset $onchans($ch) status after
+ if {"$status" != "shortly"} continue
+ set idle
+ }
+ set shortly_alling [after $chan_after allchans_sendnames]
+}
+
+proc allchans_sendnames {} {
+ global shortly_alling
+ unset shortly_alling
+ ldebug {} "asking for global namelist"
+ sendout NAMES
+}
+