X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/blobdiff_plain/5551f0d1d9dc6e1d7476c4aca75563f2960b79d7..14139a3335477e4233acec78fd3cc94431e1cc47:/bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 06902ab..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
 }
@@ -1218,6 +1219,7 @@ def_ucmd kill {
 def_ucmd summon {
     set target [ta_word]
     ta_nomore
+    # fixme would be nice if the rest of the text was passed on instead
     check_username $target
     prefix_nick