(error "No such host."))
((string-match "passw" string)
(telnet-filter proc string)
- (let* ((echo-keystrokes 0)
- (password (read-password)))
- (setq telnet-count 0)
- (send-string proc (concat password telnet-new-line))))
+ (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)
(telnet-mode)
(setq telnet-count -16)))
-(defun read-password ()
- (let ((answ "") tem)
- (message "Reading password...")
- (while (prog1 (not (memq (setq tem (read-char)) '(?\C-m ?\n ?\C-g)))
- (setq quit-flag nil))
- (setq answ (concat answ (char-to-string tem))))
- answ))
-
(provide 'telnet)
;;; telnet.el ends here