From e81fd1f7470c2ff0cef31ec94e5a1b839b129829 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 Jan 1997 06:56:06 +0000 Subject: [PATCH] (telnet-initial-filter): Fix error message. Bind case-fold-search to t. --- lisp/telnet.el | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/lisp/telnet.el b/lisp/telnet.el index f5e61fc1dca..bc646753912 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -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". -- 2.39.2