🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.bug
Article #1780

telnet.el

#1780
From: John Gardiner Myers
Date: Wed, 20 Dec 1989 05:13
31 lines
1550 bytes
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)
Technical Details
Message-ID: <EZXlHl_00UgyA4Qm59@andrew.cmu.edu>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ANDREW.CMU.EDU!jm36+
References: <Added.YZXlGLe00Ui3Ea104d@andrew.cmu.edu>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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: <EZXlHl_00UgyA4Qm59@andrew.cmu.edu>
Date: 20 Dec 89 05:13:21 GMT
References: <Added.YZXlGLe00Ui3Ea104d@andrew.cmu.edu>
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 31