[Mew-dist 06074] patch for imput (--Dcc, --UidMsgId)

[Motonori Nakamura]

1. Config ファイルで Dcc 先を切り替えたいという要望への対応
2. Message-Id に login name が現れないようにしたいという要望への対応

- motonori

diff -cr ../im-97-/IM.in/Header.pm.in ./IM.in/Header.pm.in
*** ../im-97-/IM.in/Header.pm.in	Wed Jan 14 14:43:19 1998
--- ./IM.in/Header.pm.in	Fri Aug 21 12:06:36 1998
***************
*** 84,91 ****
      if ($main::Message_id_PID) {
  	$mid_rnd = "-".$$.$mid_rnd;
      }
      my ($mid)
!       = "<$mid_time$mid_rnd.$main::Login\@$main::Message_id_domain_name>";
      $Mid_hist{$part} = $mid if ($part > 0);
      return $mid;
  }
--- 84,97 ----
      if ($main::Message_id_PID) {
  	$mid_rnd = "-".$$.$mid_rnd;
      }
+     my $mid_user;
+     if ($main::Message_id_UID) {
+ 	$mid_user = $<;
+     } else {
+ 	$mid_user = $main::Login;
+     }
      my ($mid)
!       = "<$mid_time$mid_rnd.$mid_user\@$main::Message_id_domain_name>";
      $Mid_hist{$part} = $mid if ($part > 0);
      return $mid;
  }
diff -cr ../im-97-/imput.in ./imput.in
*** ../im-97-/imput.in	Fri Aug 14 15:37:04 1998
--- ./imput.in	Fri Aug 21 11:57:27 1998
***************
*** 69,75 ****
  use strict 'subs';
  use vars qw($DebugAll $QueueStatus $Subject $Ignore_Dot $Fcc_partial
  	    $News_severe_check $PreserveMessage $Queuing $Comment_Name
! 	    $Help $JustQueuing $Me_too $PGP_Sign);
  
  $EXPLANATION = "
  $Prog :: Put Messages into Networks
--- 69,75 ----
  use strict 'subs';
  use vars qw($DebugAll $QueueStatus $Subject $Ignore_Dot $Fcc_partial
  	    $News_severe_check $PreserveMessage $Queuing $Comment_Name
! 	    $Help $JustQueuing $Me_too $Dcc_Address $PGP_Sign);
  
  $EXPLANATION = "
  $Prog :: Put Messages into Networks
***************
*** 146,151 ****
--- 146,153 ----
      	=> 'Allow to show recipients in header as To: if no To: in original.',
      'MeToo;b;;Me_too'
      	=> 'Request DCC to me.',
+     'Dcc;s@;;Dcc_Address'
+     	=> 'Supplemental DCC address.',
      'Fcc;s;;Fcc_folder'
  	=> 'Folder name to save FCC.',
      'Receipt;b;;Dsn_success_report'
***************
*** 184,189 ****
--- 186,193 ----
  	=> 'Generate Message-Id header line.',
      'PidMsgId;b;;Message_id_PID'
  	=> 'Generate Message-Id with Process ID.',
+     'UidMsgId;b;;Message_id_UID'
+ 	=> 'Generate Message-Id with User ID instead of login name.',
      'Date;b;1;Generate_date'
      	=> 'Generate Date header line.',
      'NewsGMTdate;b;;NewsGMTdate'
***************
*** 652,657 ****
--- 656,665 ----
  
      if ($Me_too) {
  	&error_exit if (&add_to_rcpt(0, $Sender) < 0);
+     }
+     my ($d);
+     foreach $d (@Dcc_Address) {
+ 	&error_exit if (&add_to_rcpt(0, $d) < 0);
      }
  
      # hook before final header processing
diff -cr ../im-97-/man/imput.jis ./man/imput.jis
*** ../im-97-/man/imput.jis	Thu May 21 22:47:30 1998
--- ./man/imput.jis	Fri Aug 21 12:03:31 1998
***************
*** 186,191 ****
--- 186,192 ----
  			     指示する。
  			     1秒間に複数のメールを発信することがある場合に
  			     指定することが望ましい。
+   --UidMsgId=<sw>	on:  ユーザのログイン名の変わりに uid を使用する。
    --NoMsgIdForNews	on:  NNTP の際だけ Message-Id: ヘッダがサーバによって
  			     生成されるようにする。
    --Date=<sw>		on:  Date: ヘッダを自動生成する。
***************
*** 243,248 ****
--- 244,250 ----
  [メッセージの配送動作に関するオプション]
  
    --MeToo=<sw> (-om)	on:  発信者にも (Dcc 的に) メールを送ることを指定する。
+   --Dcc=<str,>		指定したアドレスに対して Dcc 的にメールを送る
    --Receipt=<sw>	on:  配送完了通知の返送を指定する(RFC1891 による)。
    --MIMEbcc=<sw>	on:  MIME  Message/rfc822 形式カプセル化 (RFC2045)
  			     による BCC を発信することを指定する。