[Mew-dist 11408] Re: imput -q trouble

[Masatoshi Tsuchiya]

土屋です。


>> On Tue, 23 Nov 1999 10:37:00 +0900
>> motonori at example.com (Motonori Nakamura) said as follows:

> 再利用する場合に、サーバ名を比較するコードを入れるだけだと
> 思います。とりあえずコメントだけ:)

こんな感じですか?

-------------- next part --------------
--- Smtp.pm~	Mon Oct 25 20:13:02 1999
+++ Smtp.pm	Wed Nov 24 01:11:32 1999
@@ -61,8 +61,10 @@
     my $rc;
     @Status =();
     if ($Smtp_opened) {
-	im_notice("resetting SMTP session.\n");
-	return 0 unless (&tcp_command(\*SMTPd, 'RSET', ''));
+	if (grep(&get_cur_server() eq $_, @$servers)) {
+	    im_notice("resetting SMTP session.\n");
+	    return 0 unless (&tcp_command(\*SMTPd, 'RSET', ''));
+	}
 	&smtp_close;
 #	return 1;
     }
-------------- next part --------------

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/