From 3599f7519b44c70889dc42e6b9c1e8be6b30d3b4 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 16 Apr 2002 20:52:55 +0000
Subject: (chess-ics-regexp-alist): Added a handler to capture the guest id
 when logging in anonymously.

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

diff --git a/chess-ics.el b/chess-ics.el
index 1884799..e4f3e68 100644
--- a/chess-ics.el
+++ b/chess-ics.el
@@ -190,6 +190,10 @@ who is black."
 		   (chess-engine-send nil "set style 12\n")
 		   (chess-engine-send nil "set bell 0\n")
 		   (setq chess-ics-logged-in t)))))
+	(cons "Logging you in as \"\\([^\"]+\\)\""
+	      (function
+	       (lambda ()
+		 (setq chess-ics-handle (match-string 1)))))
 	(cons "\\(\\(\n*fics%\n*\\)?<12> \\(.+\\)\\)\n"
 	      'chess-ics-handle-move)
 	(cons "Challenge: \\(\\S-+\\) \\S-+ \\S-+ \\S-+ .+"
@@ -243,8 +247,6 @@ who is black."
 				       (insert-file-contents file)
 				       (buffer-string))))
 		      (comint-send-string proc (concat pass "\n")))))
-	      ;; jww (2002-04-13): Have to parse out the allocated Guest
-	      ;; name from the output
 	      (comint-send-string proc "guest\n\n")))))
       t)
 
-- 
cgit v1.2.3