From 14139a3335477e4233acec78fd3cc94431e1cc47 Mon Sep 17 00:00:00 2001
Message-Id: <14139a3335477e4233acec78fd3cc94431e1cc47.1718922672.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 25 Feb 2002 22:05:25 +0000
Subject: [PATCH] Nick on channel tracking bugfixes
Organization: Straylight/Edgeware

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

---
 bot.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bot.tcl b/bot.tcl
index 1060027..0bbc3b7 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -281,6 +281,7 @@ proc msg_MODE {p c dest modelist args} {
 }
 
 proc leaving {lchan} {
+    global nick_onchans
     foreach luser [array names nick_onchans] {
 	upvar #0 nick_onchans($luser) oc
 	set oc [grep tc {"$tc" != "$lchan"} $oc]
@@ -526,7 +527,7 @@ proc msg_366 {p c args} {
 	if {[llength names_chans] > 1} {
 	    set oc [grep tc {[lsearch -exact $tc $names_chans] >= 0} $oc]
 	}
-	if {![llength $oc]} { lnick_forget $n }
+	if {![llength $oc]} { lnick_forget $luser }
     }
     unset names_chans
 }
-- 
[mdw]