diff options
| -rw-r--r-- | Makefile | 2 | ||||
| -rw-r--r-- | chess-ics.el | 17 |
2 files changed, 10 insertions, 9 deletions
@@ -64,5 +64,5 @@ update: dist perl -i -pe 's/(chess-version.*)"([0-9.]+)[ab][0-9]+"/$$1"$$2$(CAT)$(NEXT)"/;' chess.el cvs commit -m "bumped minor rev" chess.el make fullclean - lftp -e "cd /incoming; put $(PKG)" upload.sourceforge.net + lftp -e "cd /incoming; put $(PKG); quit" upload.sourceforge.net sitecopy 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) |