Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ANDREW.CMU.EDU!jm36+ From: jm36+@ANDREW.CMU.EDU (John Gardiner Myers) Newsgroups: gnu.emacs.bug Subject: telnet.el Message-ID: Date: 20 Dec 89 05:13:21 GMT References: Sender: daemon@tut.cis.ohio-state.edu Distribution: gnu Organization: GNUs Not Usenet Lines: 31 telnet-initial-filter sets the global symbol "password" to the password to the string it read from the user. The following patch puts the variable inside a let binding. *** /usr/contributed/lib/gnu-emacs/lisp/telnet.el Thu Nov 3 17:39:33 1988 --- /tmp/telnet.el Wed Dec 20 00:02:34 1989 *************** *** 85,94 **** (error "No such host.")) ((string-match "passw" string) (telnet-filter proc string) ! (let ((echo-keystrokes 0)) ! (setq password (read-password))) ! (setq telnet-count 0) ! (send-string proc (concat password telnet-new-line))) (t (telnet-check-software-type-initialize string) (telnet-filter proc string) (cond ((> telnet-count 4) --- 85,95 ---- (error "No such host.")) ((string-match "passw" string) (telnet-filter proc string) ! (let ((password ! (let ((echo-keystrokes 0)) ! (read-password)))) ! (setq telnet-count 0) ! (send-string proc (concat password telnet-new-line)))) (t (telnet-check-software-type-initialize string) (telnet-filter proc string) (cond ((> telnet-count 4)