[Erbot-cvs] Changes to erbot/erbc4.el

[D . Goel]

Index: erbot/erbc4.el
diff -u erbot/erbc4.el:1.35 erbot/erbc4.el:1.36
--- erbot/erbc4.el:1.35 Sat Jan  8 17:53:08 2005
+++ erbot/erbc4.el      Fri Apr  1 16:47:52 2005
@@ -1,5 +1,5 @@
 ;;; erbc4.el --- Russian Roulette 
-;; Time-stamp: <2005-01-08 12:52:25 deego>
+;; Time-stamp: <2005-04-01 11:35:04 deego>
 ;; Copyright (C) 2003 Taylor Campbell
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc4.el
@@ -436,6 +436,11 @@
 (defalias 'fsi-RR 'fs-russian-roulette)
 (defalias 'fsi-rr 'fs-russian-roulette)
 
+
+(defun fsi-kick (&optional reason &rest ignore)
+  (erbn-mark-dead)
+  (erc-cmd-KICK erbn-nick (when reason (format "%s" reason))))
+
 (provide 'erbc4)
 (run-hooks 'erbc4-after-load-hook)