Fix unintended rename of many various *klist*

ksirc/default.pl

@@ -428,12 +428,12 @@ sub cmd_fk {
   $n0thing_kickpat=$newarg;
   &slashify($n0thing_kickpat);
   $n0thing_kickmsg=$args || "though names may change each face retains the mask it wore";
-  &addhook("352", "doftdelist");
+  &addhook("352", "dofklist");
   &addhook("315", "donefk");
   &sl("WHO $talkchannel");
 }
 &addcmd("fk");
-sub hook_doftdelist {
+sub hook_dofklist {
   local($a)=@_;
   local($c, $c, $u, $h, $s, $n)=split(/ +/, $a);
   (($n."!".$u."\@".$h) =~ /${n0thing_kickpat}/i) && $n ne $nick &&
@@ -441,7 +441,7 @@ sub hook_doftdelist {
   $silent=1;
 }
 sub hook_donefk {
-  &remhook("352", "doftdelist");
+  &remhook("352", "dofklist");
   &remhook("315", "donefk");
 }
 sub cmd_setaway {