[Mew-dist 09133] Re: b30

[Motonori Nakamura]

> 	- "r" (resend) が "E" (reedit) もどきになった
> 		注：imput の対応がまだなので、C-cC-c してはならない
> 		    (雰囲気を味わった後は、C-cC-q しましょう。)

これでいいかなぁ。

メッセージ中のヘッダから受信者アドレスを拾うモードの場合に、
Resent-To/Cc: があれば、Resent モードに自動的に切り替わります。

従来通の古い使い方も残した積もり。

- motonori

--- ../im-115-/imput.in	Mon Apr 26 21:01:59 1999
+++ imput.in	Fri Jun  4 09:46:19 1999
@@ -417,8 +417,23 @@
 	&kill_header(\@Header, 'Return-Receipt-To', 0);
     }
 
+    # Resent-*: checking
+    if ($Newsgroups eq ''
+     && (($Dist_flag && $Dist_file)
+      || ($Obey_header
+       && (&header_value(\@Header, 'Resent-To')
+        || &header_value(\@Header, 'Resent-Cc'))))) {
+	$resend_mode = 1;
+	$Resend_prefix = 'Resent-';
+	$News_flag = 0;
+	im_notice("NNTP disabled (resend is only for mailing).\n");
+    } else {
+	$resend_mode = 0;
+	$Resend_prefix = '';
+    }
+
     # verify invalid headers for posting news
-    if ($Newsgroups ne '') {
+    if ($resend_mode == 0 && $Newsgroups ne '') {
 	&add_header(\@Header, 1, 'Newsgroups', $Newsgroups);
 	&kill_header(\@Header, 'Path', 0);
 	&kill_header(\@Header, 'Followup-To', 0);
@@ -447,20 +462,6 @@
     } else {
 	$News_flag = 0;
 	im_notice("NNTP disabled (header format is not fit).\n");
-    }
-
-    if ($Dist_flag
-#    || &header_value(\@Header, 'Date')
-     || &header_value(\@Header, 'Resent-To')
-     || &header_value(\@Header, 'Resent-Cc')
-     || &header_value(\@Header, 'Resent-From')) {
-	$resend_mode = 1;
-	$Resend_prefix = 'Resent-';
-	$News_flag = 0;
-	im_notice("NNTP disabled (resend is only for mailing).\n");
-    } else {
-	$resend_mode = 0;
-	$Resend_prefix = '';
     }
 
     if ($Dist_flag && $Dist_file) {