- (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)
- (setq telnet-count 0)
- (send-string proc (concat (comint-read-noecho "Password: " t)
- telnet-new-line)))
- (t (telnet-check-software-type-initialize string)
+ (save-current-buffer
+ (set-buffer (process-buffer proc))
+ (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)