🚀 go-pugleaf

Toru> ~/.emacs $B$K(B (setq-default case-fold-search nil) $B$r=q$$$F$*$/$H!$(B
Toru> telnet-mode $B$G%Q%9%o!<%I$,%(%3!<$5$l$F$7$^$$$^$9!%(B
Toru> (setq case-fold-search nil) $B$G$O$I$N%P%C%U%!$b(B nil $B$K@_Dj$5$l$^$;$s!%(B
Toru> $B2?$+$h$$2r7hJ}K!$O$J$$$G$7$g$&$+!)(B

    telnet.el$B$N!"<!$NItJ,$r=q$-49$($F$7$^$C$?$i$I$&$G$9$+(B?

(defun telnet-initial-filter (proc 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))
	 (error "No such host."))
	((string-match "passw" string)
	 (telnet-filter proc string)
	 (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)
		  (set-process-filter proc 'telnet-filter))
		 (t (setq telnet-count (1+ telnet-count)))))))


$B$3$N!"(B
	((string-match "passw" string)
$B$r!"(B
	((string-match "Passw" string)
$B$K!"$9$l$P$$$$$H;W$$$^$9!#(B

#			   $B$3$NL?!"$3$3Kx$G$9!#(B
--
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	$B550f(B $B?.5A(B		E-mail: zic@tci.toshiba.co.jp
      $BEl<G(BCAE$B%7%9%F%`%:(B($B3t(B) $BBh(B2$B5;=QIt(B T-FRAME$B%0%k!<%W(B
      Phone:  (044) 548-4020	Nifty: CXK03514	    7N1HVR/430MHz