From e66b028def9af45cc545c973255df42c9b90cde1 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 12 Apr 2002 07:58:22 +0000
Subject: optimizations and bug fixes

---
 chess-irc.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'chess-irc.el')

diff --git a/chess-irc.el b/chess-irc.el
index 11cbf75..1588b22 100644
--- a/chess-irc.el
+++ b/chess-irc.el
@@ -70,8 +70,8 @@
     nil)
 
    ((eq event 'match)
-    (setq chess-irc-opponent (car args))
-    (chess-network-handler 'match (car args)))
+    (setq chess-irc-opponent (read-string "IRC nick of user to challenge: "))
+    (chess-network-handler 'match chess-irc-opponent))
 
    ((eq event 'shutdown)
     (chess-engine-send nil "quit")
-- 
cgit v1.2.3