[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 メーリングリストの案内