[Mew-dist 12247] Re: im-13[5-7] imput error

[Koyama Mituru]

小山です。

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 12245] Re: im-13[5-7] imput error
Date: Fri, 4 Feb 2000 16:28:40 +0900

> しかし、副作用のある関数を用いないとなると、以下のパッチのように
> smtp_transaction() 内で (imput でも) 接続しにいっているサーバーの管理
> をするしかなさそうですね。

  どうもありがとうございます。このパッチで、ループにならずにキュー
へ行くようになりました。
  しかし、im_err()が呼ばれるようで、Mew Watchバッファが開いてしま
います。im_getaddrinfo()の戻り値が0個でなく、空文字列が1個返ってく
るからのようです。そこで、次のパッチを当てました。これでよろしいの
でしょうか。

diff -urN im-137/IM/TcpTransaction.pm myim-137/IM/TcpTransaction.pm
--- im-137/IM/TcpTransaction.pm	Fri Jan 28 12:27:22 2000
+++ myim-137/IM/TcpTransaction.pm	Fri Feb  4 22:16:03 2000
@@ -122,7 +122,7 @@
 	}
 	$0 = progname() . ": getaddrinfo($s)";
 	@he_infos = im_getaddrinfo($s, $remoteport, AF_UNSPEC, SOCK_STREAM);
-	if ($#he_infos < 0) {
+	if ($#he_infos < 0 || ! $he_infos[0]) {
 	    im_warn("address unknown for $s\n");
 	    @Response = ("address unknown for $s");
 	    if ($serv eq 'smtp') {

----
小山満    mkoya at example.com