[Mew-dist 1927] Re: File handling after dispatching (in imput)

[Motonori Nakamura]

>>>>> On Tue, 09 Sep 1997 04:19:43 +0900, Toshio HORI <toshi at example.com> said:

toshi> 	% cat /tmp/tako | imput --obeyheader=on
toshi> とすれば一応望み通りのことができそうなことがわかり、実際errorを
toshi> 生じずに投稿できました。でもなんか釈然としないのです(^_^;;)

私は sendmail と同様に imput -t < /tmp/tako としています
(-t は --obeyheader=on と同じ)。

toshi> やっぱり
toshi> 	imput --some-option /tako/ika
toshi> みたいに(多少optionを与えるにしても)
toshi> 	- 任意のfile名を指定して直接投稿でき
toshi> 	- 実行後にも指定したfileは変更(rename)/削除(unlink)されない
toshi> ような使い方ができると嬉しいなぁ、と思うのですがいかがでしょうか?

こんなのでどうでしょう。--Preserve=on でそのまま残ります。

＃ / から始まっても X.400 だったら困るので @ があったらアドレスだと
＃ 思うようにしてみました。

- motonori


diff -ur ../im-66/IM.in/Message.pm.in ./IM.in/Message.pm.in
--- ../im-66/IM.in/Message.pm.in	Fri Aug 29 16:12:06 1997
+++ ./IM.in/Message.pm.in	Tue Sep  9 10:59:30 1997
@@ -784,7 +784,7 @@
     print CHAN "This is a MIME-encapsulated message$crlf$crlf";
     print CHAN "--$boundary$crlf";
     print CHAN $crlf;
-    print CHAN "Your message was not deliverd successfully.$crlf";
+    print CHAN "Your message was not delivered successfully.$crlf";
     my $errlog = im_saved_errors();
     if ($errlog) {
 	print CHAN $crlf;
diff -ur ../im-66/IM.in/Recipient.pm.in ./IM.in/Recipient.pm.in
--- ../im-66/IM.in/Recipient.pm.in	Mon Aug 25 15:04:29 1997
+++ ./IM.in/Recipient.pm.in	Tue Sep  9 11:12:59 1997
@@ -152,7 +152,8 @@
     $rest =~ s/.+:([^;]*);$/$1/;	# YYY
     @mboxes = split (',', $rest);
     foreach $rec (@mboxes) {
-	if ($rec =~ /^\// || $rec =~ /^\~/) {
+	if ($rec !~ /\@/
+	  && ($rec =~ /^\// || $rec =~ /^\~/ || $rec =~ /^\w:\//)) {
 	    &expn_rcpt_list($bcc_flag, $rec);
 	} else {
 	    return -1 if (&add_to_rcpt($bcc_flag, $rec) < 0);
diff -ur ../im-66/imput.in ./imput.in
--- ../im-66/imput.in	Wed Aug 20 19:38:59 1997
+++ ./imput.in	Tue Sep  9 11:10:12 1997
@@ -198,6 +198,8 @@
 	=> 'Use MIME (message/rfc822) style BCC.',
     'TrashMark;s;#;Trashmark'
 	=> 'Prefix character for draft message file renaming.',
+    'Preserve;b;;PreserveMessage'
+	=> 'Preserve draft message as is even if dispatched successfully.',
     'Message;s;;Draft_message'
 	=> 'Path/name of draft message.',
     'PGPsign;b;;PGP_Sign'
@@ -314,7 +316,7 @@
     $Obey_header = 1 if ($Draft_message);
     if (!$Obey_header && !$Smtp_input_mode) {
 	foreach $arg (@arg_rest) {
-	    if ($arg =~ /^\// || $arg =~ /^\w:\//) {
+	    if ($arg !~ /\@/ && ($arg =~ /^\// || $arg =~ /^\w:\//)) {
 		# absolute path expression: a draft message
 		$Draft_message = $arg;	# XXX
 		last;
@@ -1481,6 +1483,7 @@
 #	return value: none
 #
 sub trash_message {
+    return if ($PreserveMessage);
     my $d;
     if ($Draft_folder ne '') {
 	$d = "$Draft_folder/$Draft_message";