From 2f9a87ac4d488c53409e473246b7e42ea11b6f18 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 9 Apr 2002 01:28:37 +0000
Subject: *** no comment ***

---
 chess-irc.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'chess-irc.el')

diff --git a/chess-irc.el b/chess-irc.el
index 2f5d2c8..0b3b98c 100644
--- a/chess-irc.el
+++ b/chess-irc.el
@@ -25,7 +25,13 @@
   :type 'string
   :group 'chess-irc)
 
-(defvar chess-irc-regexp-alist chess-network-regexp-alist)
+(defvar chess-irc-regexp-alist
+  (append chess-network-regexp-alist
+	  (list (cons ".+"
+		      (function
+		       (lambda ()
+			 (message "Your opponent says: %s"
+				  (match-string 0))))))))
 
 (defvar chess-irc-process)
 (defvar chess-irc-engine)
@@ -64,6 +70,8 @@
     nil)
 
    ((eq event 'shutdown)
+    (ignore-errors
+      (chess-engine-send nil "game over"))
     (ignore-errors
       (process-send-string chess-irc-process "QUIT :Goodbye\n"))
     (ignore-errors
-- 
cgit v1.2.3