[Mew-dist 07599] Re: To のないメール

[Motonori Nakamura]

>>>>> On Mon, 22 Feb 1999 15:19:21 +0900, Akihiro Okamura <okamura at example.com> said:

okamura> mew では、To がないメールは出せない仕様になっているのでしょうか?
okamura> # Fcc: で保存しているメールには To: は存在していないので im 側の
okamura> # 仕様なのかもしれませんが。

仕様と言えば仕様ですが、実装したときの気持を忘れちゃいました ^^;
man とも整合性がないので、man に合わしてやめちゃいましょう。
以下のパッチは、annotation の虫取りも含んでいます。

*** imput.in-	Mon Feb  8 15:20:07 1999
--- imput.in	Mon Feb 22 19:53:02 1999
***************
*** 955,966 ****
       && !&header_value(\@Header, 'Apparently-To')) {
  	unless ($Show_Rcpts_Header) {
  	    &add_header(\@Header, 0, 'To', 'undisclosed-recipients:;');
! 	} else {
! 	    foreach $rec (@Recipients) {
! 		if ($rec =~ /<(.+)>/) {
! 		    &add_header(\@Header, 0, 'To', $1);
! 		}
! 	    }
  	}
      }
  
--- 955,966 ----
       && !&header_value(\@Header, 'Apparently-To')) {
  	unless ($Show_Rcpts_Header) {
  	    &add_header(\@Header, 0, 'To', 'undisclosed-recipients:;');
! #	} else {
! #	    foreach $rec (@Recipients) {
! #		if ($rec =~ /<(.+)>/) {
! #		    &add_header(\@Header, 0, 'To', $1);
! #		}
! #	    }
  	}
      }
  
***************
*** 1599,1607 ****
      my $first = "$label: Date: " . &gen_date(1) . "\n";
      my $second = '';
      $second = "$label: To: " . join(',', @Recipients) . "\n"
! 	if ($#Recipients => 0);
      $second .= "$label: Newsgroups: $Newsgroups\n"
! 	if ($Newsgroups eq '');
      $second .= "$label: Message-Id: $Cur_mid\n" if ($Cur_mid ne '');
      EACH: foreach (split(',', $msg)) {
  	im_notice("annotating $_.\n");
--- 1599,1607 ----
      my $first = "$label: Date: " . &gen_date(1) . "\n";
      my $second = '';
      $second = "$label: To: " . join(',', @Recipients) . "\n"
! 	unless ($#Recipients < 0);
      $second .= "$label: Newsgroups: $Newsgroups\n"
! 	if ($Newsgroups ne '');
      $second .= "$label: Message-Id: $Cur_mid\n" if ($Cur_mid ne '');
      EACH: foreach (split(',', $msg)) {
  	im_notice("annotating $_.\n");


- motonori