From xemacs-m  Tue Jan 14 20:11:55 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id UAA19202 for <xemacs-beta@xemacs.org>; Tue, 14 Jan 1997 20:11:53 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id SAA14686; Tue, 14 Jan 1997 18:21:46 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Re: telnet
References: <199701141318.HAA02192@mharnois.workgroup.net>
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>
In-Reply-To: Michael Harnois's message of Tue, 14 Jan 1997 07:18:40 -0600
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=US-ASCII
Date: 14 Jan 1997 18:21:45 -0800
Message-ID: <m2oher3cg6.fsf@altair.xemacs.org>
Lines: 67
X-Mailer: Red Gnus v0.80/XEmacs 20.0

Michael Harnois writes:

> sorry to say, telnet is not behaving any differently for me under
> 20.0-beta90 ...

I found some more lurking obscure braindamage.  Try this:

(NOTE:  Patch is against 19.15, but should work against 20.0).

Index: telnet.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/comint/telnet.el,v
retrieving revision 1.4
diff -u -r1.4 telnet.el
--- telnet.el	1997/01/11 22:10:02	1.4
+++ telnet.el	1997/01/15 02:18:32
@@ -68,7 +68,7 @@
 (defvar telnet-count 0
   "Number of output strings read from the telnet process
 while looking for the initial password.")
-(make-variable-buffer-local 'telnet-count)
+;; (make-variable-buffer-local 'telnet-count)
 
 (defvar telnet-program "telnet"
   "Program to run to open a telnet connection.")
@@ -254,7 +254,6 @@
 					   (if port (concat " " port) "")
 					   "\n"))
       (setq comint-input-sender 'telnet-simple-send)
-      (setq telnet-count telnet-initial-count)
       ;; run last so that hooks can change things.
       (telnet-mode))))
 
@@ -273,6 +272,7 @@
         mode-name "Telnet"
         comint-prompt-regexp telnet-prompt-pattern)
   (use-local-map telnet-mode-map)
+  (set (make-variable-buffer-local 'telnet-count) telnet-initial-count)
   (run-hooks 'telnet-mode-hook))
 
 ;;;###autoload (add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)")
@@ -288,7 +288,6 @@
   (require 'shell)
   (let ((name (concat "rsh-" host)))
     (pop-to-buffer (make-comint name remote-shell-program nil host))
-    (setq telnet-count telnet-initial-count)
     ;;
     ;; SunOS doesn't print "unix" in its rsh login banner, so let's get a
     ;; reasonable default here.  There do exist non-Unix machines which
@@ -303,8 +302,10 @@
     ;; antisocial than echoing a password, and more likely than connecting
     ;; to a non-Unix rsh host these days...
     ;;
-    ;; (set-process-filter (get-process name) 'telnet-initial-filter)
-    (set-process-filter (get-process name) 'telnet-filter)
+    ;; I disagree with the above.  -sb
+    ;;
+    (set-process-filter (get-process name) 'telnet-initial-filter)
+    ;; (set-process-filter (get-process name) 'telnet-filter)
     ;; run last so that hooks can change things.
     (telnet-mode)))
 

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
Today's environment is 20.0 XEmacs Lucid (beta91) and Red Gnus v0.80

