[Mew-dist 1723] About imget's security

[TOYAMA Sumio]

外山＠東京大学です。

ただいまmew-1.90とIM-65を使っておりますが、securityについてちょっ
と気になることを見つけたので投稿いたします。

imgetでPOPを使ってメールを取り込んでいるんですが、パスワードによ
る認証中に、
% ps ux
などと、processを表示すると、
sumio    11837  9.2  8.2 3876 4852 ?  S    17:52   0:01 imget: PASS ******** (POP host name)
と
******部にパスワードが表示されてしまいます。
＃わざと入力パスワードを間違えると、認証に時間がかかるので、容易
＃に確認できると思います。

とりあえず、次のように書き直したら直りましたので、以下にパッチを
添付します。

<source_directory>/im-65/IM.in/に移動してから
当てて下さい。

_/_/_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/_/_/
_/_/_/      東京大学  理学部  情報科学科  ４年      _/_/_/
_/_/_/                  外山  純生                  _/_/_/
_/_/_/           sumio at example.com           _/_/_/
_/_/_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/_/_/
-------------- next part --------------
*** TcpTransaction.pm.in.old	Thu Aug 28 18:19:50 1997
--- TcpTransaction.pm.in	Thu Aug 28 18:27:36 1997
***************
*** 215,221 ****
  	    @Response = ($!);
  	    return 1;
  	}
! 	$0 = progname() . ": $command ($Cur_server)";
      } else {
  ## if you have mysterious TCP/IP bug on IRIX/SGI
  #	print $CHAN ' ';
--- 215,221 ----
  	    @Response = ($!);
  	    return 1;
  	}
! 	$0 = progname() . ": $logcmd ($Cur_server)";
      } else {
  ## if you have mysterious TCP/IP bug on IRIX/SGI
  #	print $CHAN ' ';
***************
*** 264,270 ****
  	}
  	im_notice("<<< $logcmd\n");
  	$Session_log .= "<<< $logcmd\n" if ($Logging);
! 	$0 = progname() . ": $command ($Cur_server)";
      } else {
  	$0 = progname() . ": greeting ($Cur_server)";
      }
--- 264,270 ----
  	}
  	im_notice("<<< $logcmd\n");
  	$Session_log .= "<<< $logcmd\n" if ($Logging);
! 	$0 = progname() . ": $logcmd ($Cur_server)";
      } else {
  	$0 = progname() . ": greeting ($Cur_server)";
      }