From 58d327f19e55a7c583c7d4a912300b31edcd951a Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Thu, 25 Apr 2002 20:33:28 +0000
Subject: *** no comment ***

---
 Makefile     |  2 +-
 chess-ics.el | 17 +++++++++--------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/Makefile b/Makefile
index e021023..06d6fe2 100644
--- a/Makefile
+++ b/Makefile
@@ -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)
-- 
cgit v1.2.3