--- a/Lists.lua	Sun Mar 11 17:47:26 2012 -0400
+++ b/Lists.lua	Sun Mar 11 17:47:59 2012 -0400
@@ -605,6 +605,14 @@
         end
     end
 end
+
+function bsk:NukePerson(name) -- delete from all lists and then from persons
+    local pid = personName2id[name]
+    for i,v in pairs(bsk.lists) do
+        bsk:RemovePersonFromList(name,v.name)
+    end
+    bsk:RemovePerson(name)
+end
 --}}}
 -- "Soft" actions- ie things that cause nonpermanent state {{{