From xemacs-m  Mon Jan  6 20:44:00 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id UAA02305 for <xemacs-beta@xemacs.org>; Mon, 6 Jan 1997 20:43:59 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id SAA27232; Mon, 6 Jan 1997 18:54:09 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Telnet not echoing passwords -- debug patch
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=US-ASCII
Date: 06 Jan 1997 18:54:08 -0800
Message-ID: <m2zpymi4a7.fsf@altair.xemacs.org>
Lines: 59
X-Mailer: Red Gnus v0.72/XEmacs 20.0

O.K.  For those distressed about telnet.el echoing password, here's a
patch to see what's happening.  (If telnet properly does not echo
password as it should ignore this patch, and this message).

This patch will apply to either 19.15 or 20.0.  Apply it to telnet.el,
bytecompile, restart XEmacs.  Then telnet, and take a look at the
*debug-telnet* buffer.  If you do not see a line of the form:

[Password: ]

in that buffer, please email me the contents.  If you *do* see a line
of that form and adjusting telnet-maximum-count upwards doesn't work
to turn off echoing please email me the contents.

My guess is perhaps the people who are having the most trouble are not
having the telnet connection be line buffered.  If the incoming text
from telnet is not line buffered, the password prompt will never be
recognized.

NOTE:  When you are done fiddling with this, please restore the
original telnet.el.org file, as this patch is not an official part of
XEmacs.

Index: telnet.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/comint/telnet.el,v
retrieving revision 1.3
diff -u -r1.3 telnet.el
--- telnet.el	1997/01/04 21:19:43	1.3
+++ telnet.el	1997/01/07 02:42:02
@@ -129,7 +129,14 @@
 	   (setq telnet-replace-c-g ?\n))))
   (setq comint-prompt-regexp telnet-prompt-pattern))
 
+(defun telnet-debug-log-string (string)
+  (save-excursion
+    (set-buffer (get-buffer-create "*telnet-debug*"))
+    (insert "[" string "]\n")))
+
 (defun telnet-initial-filter (proc string)
+  (let ((case-fold-search t))
+    (telnet-debug-log-string 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))
@@ -153,6 +160,7 @@
 			     'telnet-filter)
 		      (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".

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"That Bill Clinton.  He probably doesn't know how to log on to the
Internet."  -- Rush Limbaugh, noted Computer Expert

