From 456d3cdaf4559b55f424fac8f5742473ac79224b Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 09:24:43 +0000 Subject: *** no comment *** --- chess-engine.el | 3 ++- chess-irc.el | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/chess-engine.el b/chess-engine.el index 5c556aa..6c5df34 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -77,7 +77,8 @@ (message "Your opponent has passed the first move to you")) ((eq event 'connect) - (message "Your opponent, %s, is now ready to play" (car args))) + (message "Your opponent, %s, is now ready to play" (car args)) + (chess-engine-send nil "name %s\n" (user-full-name))) ((eq event 'quit) (message "Your opponent has quit playing")) diff --git a/chess-irc.el b/chess-irc.el index a6a95ea..033beea 100644 --- a/chess-irc.el +++ b/chess-irc.el @@ -65,7 +65,7 @@ (set-process-filter proc 'chess-irc-filter) (set-process-buffer proc (current-buffer)) (set-marker (process-mark proc) (point)) - (message "Now ready to accept protocol" chess-irc-nick))) + (message "Now waiting for 'name USER' via /msg; or use `M-x chess-irc-engage'"))) (setq chess-irc-process proc)) nil) -- cgit v1.2.3