From 9d6128b9226b4241a711b64748c3817d9265b5ab Mon Sep 17 00:00:00 2001
Message-Id: <9d6128b9226b4241a711b64748c3817d9265b5ab.1717918584.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 10 Jun 2002 00:40:01 +0000
Subject: [PATCH] bugfixes
Organization: Straylight/Edgeware

From: Ian Jackson <ijackson@chiark.greenend.org.uk>

---
 ledmodule.tcl | 30 ++++++------------------------
 1 file changed, 6 insertions(+), 24 deletions(-)

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 1de1e95..f95ff21 100644
--- 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 }
-- 
[mdw]