(telnet-initial-filter): Fix error message.
authorRichard M. Stallman <rms@gnu.org>
Wed, 8 Jan 1997 06:56:06 +0000 (06:56 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 8 Jan 1997 06:56:06 +0000 (06:56 +0000)
Bind case-fold-search to t.

lisp/telnet.el

index f5e61fc..bc64675 100644 (file)
@@ -121,19 +121,20 @@ rejecting one login and prompting again for a username and password.")
 
 (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".