[Mew-dist 2335] Re: imput ERROR: ESC sequence not allowed...

[Motonori Nakamura]

>>>>> On Thu, 02 Oct 1997 13:27:37 +0900, Chifumi Hayashi (林　千史) <chifumi at example.com> said:

chifumi> | % imput --debug --dist chifumi < Mail/inbox/36326 

chifumi> | imput:DEBUG: Body code is ASCII

chifumi> | imput:DEBUG: found chifumi -> Chifumi Hayashi (林　千史) <chifumi at example.com>
chifumi> | imput:DEBUG: fetch_addr(in): Chifumi Hayashi (林　千史) <chifumi at example.com>
chifumi> | imput: ERROR: ESC sequence not allowed in address expression

chifumi> となってしまいます。
chifumi> 'found ...' と 'fetch_addr(in): ...' の間に 'encoding ...' 等が出ていません。

なるほど。ということは、これで直るでしょうか?

宛先に指定したアドレスではなく、送ろうとしているメッセージのヘッダに
残っている <chifumi> に対する処理の部分に問題があったようです。

- motonori

*** Message.pm.in-	Thu Oct  2 15:13:57 1997
--- Message.pm.in	Thu Oct  2 15:18:14 1997
***************
*** 24,29 ****
--- 24,30 ----
  use IM::Address;
  use IM::Alias;
  use IM::EncDec;
+ use IM::Iso2022jp;
  use integer;
  use strict;
  use vars qw(@ISA @EXPORT);
***************
*** 418,423 ****
--- 419,433 ----
  		$addr = $main::Sender;
  	    }
  	    if ($a !~ /[\@%!:]/ && ($b = &alias_lookup($a)) ne '') {
+ ## if ISO2022JP
+ 		$b = &conv_iso2022jp($b)
+ 		  if ($main::Iso2022jp_code_conversion);
+ 		if ($main::Iso2022jp_header_mime_conv) {
+ 		    my $bb = &struct_iso2022jp_mimefy($b);
+ 		    return -1 if ($bb eq '');
+ 		    $b = $bb;
+ 		}
+ ## endif
  		if ($addr_list) {
  		    $addr_list = "$b,$addr_list";
  		} else {