bugfixes

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 1de1e95..f95ff21 100644 (file)
--- a/ledmodule.tcl
+++ b/ledmodule.tcl
@@ -146,6 +146,7 @@ proc_mon gotchanlist {ch nll} {
        if {[mon_nick_is $mm(nopresence) $nl]} continue
        lappend l $nl
     }
+    ldebug m$m "$ch names: $l"
     set mm(present-$ch) $l
     mon_updateall $m
 }
@@ -455,33 +456,13 @@ proc config_change {} {
 }
 
 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
+    global onchans
+    foreach ch [array names onchans] { chan_shortly $ch }
 }
 
 proc chan_shortly {ch} {
-    global chan_after shortly_alling
+    global chan_after
     set ch [irctolower $ch]
-    if {[info exists shortly_alling]} {
-       ldebug c$ch "global check already pending"
-       return
-    }
     upvar #0 onchans($ch) oc
     if {[info exists oc]} {
        manyset $oc status after
@@ -498,7 +479,7 @@ proc msg_353 {p c dest type chan nicklist} {
     set lchan [irctolower $chan]
     set nll [irctolower $nicklist]
     regsub -all {[=@*]} $nll {} nll
-    ldebug c$lchan "got names $nll"
+    ldebug c$lchan "all names: $nll"
     foreach m [list_objs monitor] {
        mon_gotchanlist $m $lchan $nll
     }
@@ -539,6 +520,7 @@ def_ucmd debug {
 
 def_ucmd nodebug {
     prefix_nick
+    ta_nomore
     global debugusers debug_cancelling
     set debugusers {}
     catch { after cancel $debug_cancelling }