From 58d327f19e55a7c583c7d4a912300b31edcd951a Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 25 Apr 2002 20:33:28 +0000 Subject: *** no comment *** --- chess-ics.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 58517a4..6f41537 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -49,13 +49,7 @@ The format of each entry is: (cons "[Pp]assword:" (function (lambda () - (let ((pass (or chess-ics-password - (read-passwd "Password: ")))) - (if (file-readable-p pass) - (setq pass (with-temp-buffer - (insert-file-contents pass) - (buffer-string)))) - (chess-engine-send nil (concat pass "\n"))) + (chess-engine-send nil (concat chess-ics-password "\n")) 'once))) (cons "%" (function @@ -284,7 +278,14 @@ who is black." (if (null (nth 2 server)) (setq chess-ics-handle "guest") (setq chess-ics-handle (nth 2 server) - chess-ics-password (nth 3 server))))) + chess-ics-password + (let ((pass (or (nth 3 server) + (read-passwd "Password: ")))) + (if (file-readable-p pass) + (with-temp-buffer + (insert-file-contents pass) + (buffer-string)) + pass)))))) t) ((eq event 'match) -- cgit v1.2.3