[Mew-dist 04954] Re: BCC で送った時の From

Motonori Nakamura motonori at example.com
1998年 5月 31日 (日) 15:06:14 JST


>>>>> On Sun, 31 May 1998 10:38:56 +0900, Atsushi Onoe <onoe at example.com> said:

> sugimori> ひょっとして、BCCはimputが送っているのでMewは関与していない
> sugimori> のでしょうか?
> 
> そういうことです。IM の方の設定で調整してください。

onoe> From: は元のメールから抽出してくれた方がありがたいのではないでしょうか?

私は、mew では From: を設定せず、すべて IM にまかせて使っているので、
何も問題ないのですが、対応してみました。

--- Message.pm.in-	Sun May 31 14:50:25 1998
+++ Message.pm.in	Sun May 31 15:01:05 1998
@@ -464,7 +464,17 @@
     my $subj;
     my $crlf = &crlf;
 
-    return -1 unless (print CHAN "From: $main::Sender_line$crlf");
+    my $frm = &header_value($Header, 'Resent-From');
+    if ($frm eq '') {
+	$frm = &header_value($Header, 'From');
+	if ($frm eq '') {
+	    $frm = $main::Sender_line;
+	}
+    }
+    return -1 unless (print CHAN "From: $frm$crlf");
+    if (&extract_addr($frm) ne $main::Sender) {
+	print CHAN "Sender: $main::Sender_line$crlf";
+    }
     print CHAN "To: blind-copy-recipients:;$crlf";
     print CHAN "X-Dispatcher: $main::VERSION$crlf";
     if (($subj = &header_value($Header, 'Subject')) ne '') {


- motonori@まくはり



Mew-dist メーリングリストの案内