# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852706566 0
# Node ID 76159aa277ebc984f5a30d68e84853d5fead9c77
# Parent  7fe3a413068d8b70b4c65ace8acb020ee54ffe64
(telnet-initial-filter): Fix error message.
Bind case-fold-search to t.

diff -r 7fe3a413068d -r 76159aa277eb lisp/telnet.el
--- a/lisp/telnet.el	Wed Jan 08 06:09:48 1997 +0000
+++ b/lisp/telnet.el	Wed Jan 08 06:56:06 1997 +0000
@@ -121,19 +121,20 @@
 
 (defun telnet-initial-filter (proc string)
   ;For reading up to and including password; also will get machine type.
-  (cond ((string-match "No such host" string)
-	 (kill-buffer (process-buffer proc))
-	 (error "No such host."))
-	((string-match "passw" string)
-	 (telnet-filter proc string)
-	 (setq telnet-count 0)
-	 (send-string proc (concat (comint-read-noecho "Password: " t)
-				   telnet-new-line)))
-	(t (telnet-check-software-type-initialize string)
+  (let ((case-fold-search t))
+    (cond ((string-match "No such host" string)
+	   (kill-buffer (process-buffer proc))
+	   (error "No such host"))
+	  ((string-match "passw" string)
 	   (telnet-filter proc string)
-	   (cond ((> telnet-count telnet-maximum-count)
-		  (set-process-filter proc 'telnet-filter))
-		 (t (setq telnet-count (1+ telnet-count)))))))
+	   (setq telnet-count 0)
+	   (send-string proc (concat (comint-read-noecho "Password: " t)
+				     telnet-new-line)))
+	  (t (telnet-check-software-type-initialize string)
+	     (telnet-filter proc string)
+	     (cond ((> telnet-count telnet-maximum-count)
+		    (set-process-filter proc 'telnet-filter))
+		   (t (setq telnet-count (1+ telnet-count))))))))
 
 ;; Identical to comint-simple-send, except that it sends telnet-new-line
 ;; instead of "\n".