[Mew-dist 12572] Re: (mew-release) Mew 1.94.2 and IM 140

[SAITO Atsunori]

西東です。
# 間違えてmew-releaseに送ってしまいました... 失礼しました...

1.95bの途中からmewがSMTPを喋り始めたためimputを使っていなかっ
たんですが、いましがたim-140を入れ、imput -qと打つと...

% imput -q
Too many arguments for IM::Smtp::smtp_transaction_for_error_notify at /usr/local/bin/imput line 1939, near "@Body)"
Execution of /usr/local/bin/imput aborted due to compilation errors.

と言われてしまいました。

% diff -u imput.in.org imput.in
--- imput.in.org        Mon Feb 28 14:27:04 2000
+++ imput.in    Mon Feb 28 14:27:12 2000
@@ -1936,7 +1936,7 @@
     push(@Smtp_servers, split(',', $Emg_Smtp_servers));
 
     for (my $i = 0; $i <= $#Smtp_servers; $i++) {
-       $rc = smtp_transaction_for_error_notify($Smtp_servers[$i],
+       $rc = &smtp_transaction_for_error_notify($Smtp_servers[$i],
                                        \@Smtp_servers, \@Header, \@Body);
        return 0 if ($rc == 0);

1行修正したら上記メッセージは出なくなりましたが、perlを良く
理解していないため、正しい修正か不明です。

-- 
// SAITO Atsunori <sai at example.com>