X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/blobdiff_plain/0d3ea3aa52f4a62b4f8a64892bfbe579164eb26d..a44d49829c0774614c44a03ec4e0d0f8cb83e9f0:/bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 3da92b3..1119fbf 100755
--- a/bot.tcl
+++ b/bot.tcl
@@ -376,9 +376,10 @@ proc nick_case {user} {
 }
 
 proc msg_NICK {p c newnick} {
-    global nick_arys nick_case
+    global nick_arys nick_case calling_nick
     prefix_nick
     recordlastseen_n $n "changing nicks to $newnick" 0
+    set calling_nick $newnick
     recordlastseen_n $newnick "changing nicks from $n" 1
     set luser [irctolower $n]
     lnick_marktime_cancel $luser