TIPS456

簡便法、Gmailにも届くさくらインターネットのメーリングリストの改良スクリプト

# YOU CAN EDIT MANUALLY AFTER HERE.
$START_HOOK = q{
# Reply-To header processing
{
    my $rt = &GET_HEADER_FIELD_VALUE('reply-to');
    $rt = '' unless defined $rt;
    
    if (&MailListMemberP($From_address)) {
        unless (length $rt) {
            &DEFINE_FIELD_FORCED("reply-to", $MAIL_LIST);
        }
    } else {
        if (length $rt) {
            &DEFINE_FIELD_FORCED("reply-to", $rt . "," . $MAIL_LIST);
        } else {
            my $fa = defined($From_address) ? $From_address : '';
            &DEFINE_FIELD_FORCED("reply-to", $fa . "," . $MAIL_LIST);
        }
    }
}

# From header rewrite ("<name> via ML:" <MAIL_LIST>)
{
    # 1) read original From safely
    my $orig_from = &GET_HEADER_FIELD_VALUE('from');
    $orig_from = '' unless defined $orig_from;
    
    # 2) keep original From for troubleshooting
    if (length $orig_from) {
        &DEFINE_FIELD_FORCED('x-original-from', $orig_from);
    }
    
    # 3) extract display-name robustly (no warnings even if patterns don't match)
    my $name = '';
    if    ($orig_from =~ /^\s*"([^"]+)"\s*<[^>]+>/) { $name = $1; }
    elsif ($orig_from =~ /^\s*([^<]+?)\s*<[^>]+>/)  { $name = $1; }
    elsif ($orig_from =~ /<([^>]+)>/)               { my $addr = $1; ($name) = split(/\@/, $addr, 2); }
    elsif ($orig_from =~ /([^\s\@]+@[^\s\@]+)/)     { my $addr = $1; ($name) = split(/\@/, $addr, 2); }
    
    # 4) trim; fallback if empty/undef
    $name = '' unless defined $name;
    $name =~ s/^\s+|\s+$//g if length $name;
    $name = 'No Name' unless length $name;
    
    # 5) build new From with " via ML:" suffix
    my $disp = $name . '_via_ML:';
    
    # 6) ensure MAIL_LIST is defined
    my $ml = defined($MAIL_LIST) ? $MAIL_LIST : '';
    
    # 7) create new From header with quotes
    my $new_from = $disp . ' <' . $ml . '>';
    
    # 8) set rewritten From only when ML address is available
    if (length $ml) {
        &DEFINE_FIELD_FORCED('from', $new_from);
    }
}
};
<||

メーリングリストfmlのカスタマイズ

# YOU CAN EDIT MANUALLY AFTER HERE.

cd fml/spool/ml/＜mailing list＞
make config.ph

make config.ph

参考にさせていただいたサイト

メーリングリストは生きている

現状のメーリングリストの問題点

運用上の問題点　reply-to

To: ml<mladress@example.com>
From: Aさん<a-san@example.com>
Reply-to: ml<mladress@example.com>
Cc: Bさん<b-san@example.com>

To: ml<mladress@example.com>
Cc: Bさん<b-san@example.com>

To: ml<mladress@example.com>
From: Aさん<a-san@example.com>
Reply-to: Aさん<a-san@example.com>
Cc: Bさん<b-san@example.com>

Tp: Aさん<a-san@example.com>
To: ml<mladress@example.com>　※Ccとなるメーラーもある
Cc: Bさん<b-san@example.com>

Tp: Aさん<a-san@example.com>
To: ml<mladress@example.com>　※Ccとなるメーラーもある
Cc: Bさん<b-san@example.com>

①　Fromが、MLメンバーの場合には、reply-to はMLアドレスで問題ない。
②　Fromが、MLメンバーではない場合には、reply-to は、FromアドレスとMLアドレスを加える*1。
③　ただし、元のメールにreply-to の設定がある場合には、それのみを生かす。

受信できない問題

Aの問題

Bの問題

技術的な表現

受信できない問題の解決策

FromをMLアドレスとすることで、DMARCのSPFアライメントを成功させ、DMARC pass とする。

From: Aさん <a-san@example.com>

From: tips456のML <ml@tips.net>

• Fromのアドレスは、MLアドレスであるが
• Fromの表示名は、投稿者の名前

• Fromのアドレスは、MLアドレスであるが
• Fromの表示名は、"投稿者の名前_via_ML"

From: "投稿者の名前_via_ML" <ml@tips.net>

X-Original-From: （投稿者の表示名とメールアドレス）

MLサーバーでDKIMを再署名できないの？

整理

• Fromヘッダについて、アドレスはML、表示名は投稿者+via_MLに変換することで、受信確率を上げて（ほぼ大丈夫）、迷惑メールに分類させる確率を下げる（メールの内容次第）。
• Reply-toは、投稿者がMLメンバーかどうかによって、投稿者のアドレスをいれるかどうか振り分ける

どのサービス（レンタルサーバー）を使用するか

追加的施策

不要なヘッダの削除

その他

まとめ：ビジネスMLの完璧運用を今すぐ実現

1. Fromヘッダの書き換え：MLアドレスをFromに設定し、表示名で「投稿者_via_ML」と明記。SPFアライメントを確保し、配信率を劇的に向上。
2. reply-toのスマート設定：投稿者がMLメンバーならMLアドレス、非メンバーならFrom+MLの組み合わせに。Reply Allの混乱を防ぎ、コミュニケーションをスムーズに。
3. さくらインターネット活用：DKIM再署名不可の制約をFrom書き換えでカバーし、ARCで信頼性を補強。Xserverのような柔軟性の低いサービスは避けましょう。

メーリングリストの受信トラブルを解決する

SPFを活用する方式

DKIMを活用する方式

ARCについて

ヘッダFrom書換による影響

MLへの返信が、適切に実施されるための要件

返信時の挙動

ML(メーリングリスト)メンバーではない外部アドレスからの投稿の場合、reply-toがMLアドレスだけとなり、そのメールに返信（全員返信含む）すると、MLにしか返信されないので、当該外部の投稿者に返信されない。

A. MK(メーリングリスト)外部からの投稿に関しては、　reply-to に、①MLのメールアドレスのほか、②当該外部投稿者のメールアドレスの2つをセットする。
B. MK内部（MLの登録メンバー）からの投稿に関しては、reply-to に、①MLのメールアドレスのみをセットする。

メーリングリストメンバーからの投稿については、reply-toの設定が元メールにあればそれを生かし、なければreply-toに、ＭＬアドレスを設定する。
メンバー以外の外部からの投稿については、reply-toの設定があればそのまま生かし、reply-to設定がなければ、当該外部の方（Fromヘッダにあるアドレス）をreply-toに設定する。

最強のメーリングリスト運用方法

• ヘッダFrom書換
• Reply-toヘッダの適切な処理

ML登録者が気を付けること

1. MLからのメールを単純転送して、他のドメイン（例:Gmail）で受け取ってはいけません。せっかくのSPFが崩れます。管理者に最終的に受け取るアドレスを登録してもらいましょう。
2. Gmailに転送したいなら、単純転送ではなく、POP/IMAPアクセスにしましょう。

さくらインターネットのメーリングリストでFromを書き換える

ここでは、From 投稿者の表示名_via_ML <MLアドレス>　と変更する方法を紹介します。
もし、投稿者の表示名が存在しない場合（＝メールアドレスのみの場合）は、投稿者のアドレスの@より左の部分だけを表示名として取り込みます。

my $DISPLAY_NAME_SUFFIX = '_via_ML';
my $CF_FILE_ENCODING = 'shiftjis'; # Change this if CF file uses different encoding

my $OUTPUT_MIME_ENCODING = 'ISO-2022-JP';

$START_HOOK = q{
    # ========================================
    # Configuration Section
    # ========================================
    
    # Suffix to append to display names (configurable)
    # Change this value to customize the suffix
    my $DISPLAY_NAME_SUFFIX = '_via_ML';
    
    # Character encoding of this CF file (for Japanese suffix support)
    # Options: 'utf-8', 'shiftjis', 'euc-jp', 'iso-2022-jp'
    my $CF_FILE_ENCODING = 'shiftjis';  # Change this if CF file uses different encoding
    
    # Output MIME encoding for From header
    # Options: 'UTF-8' (international standard), 'ISO-2022-JP' (Japanese traditional)
    my $OUTPUT_MIME_ENCODING = 'UTF-8';  # Change to 'ISO-2022-JP' for legacy systems
    
    # Convert suffix to UTF-8 if it contains non-ASCII characters
    if ($DISPLAY_NAME_SUFFIX =~ /[\x80-\xFF]/) {
        # Suffix contains non-ASCII, decode from CF file encoding
        if ($CF_FILE_ENCODING ne 'utf-8') {
            my $temp = decode($CF_FILE_ENCODING, $DISPLAY_NAME_SUFFIX);
            if (defined $temp) {
                $DISPLAY_NAME_SUFFIX = $temp;
            }
        }
    }
    
    # ========================================
    # Reply-To Header Processing
    # ========================================
    
    # Check if sender is a mailing list member
    if (&MailListMemberP($From_address)) {
        # Member: Set Reply-To to mailing list if not already set
        unless (&GET_HEADER_FIELD_VALUE('reply-to')) {
            &DEFINE_FIELD_FORCED("reply-to", $MAIL_LIST);
        }
    }
    else {
        # Non-member: Add both original address and ML to Reply-To
        if (&GET_HEADER_FIELD_VALUE('reply-to')) {
            # Append ML to existing Reply-To
            &DEFINE_FIELD_FORCED("reply-to", &GET_HEADER_FIELD_VALUE('reply-to') . "," . $MAIL_LIST);
        } else {
            # Create new Reply-To with sender and ML
            &DEFINE_FIELD_FORCED("reply-to", $From_address . "," . $MAIL_LIST);
        }
    }
    
    # ========================================
    # From Header Rewrite Processing
    # ========================================
    
    # Load required modules
    use Encode qw(decode encode);
    use Encode::MIME::Header;
    
    # Get and save original From header
    my $orig_from = &GET_HEADER_FIELD_VALUE('from');
    &DEFINE_FIELD_FORCED('x-original-from', $orig_from);
    
    # Extract display name and email address from From header
    my ($display_name, $email_address) = extract_from_parts($orig_from);
    
    # Build new From header
    my $new_from;
    if ($display_name) {
        # Add configured suffix to display name
        $display_name .= $DISPLAY_NAME_SUFFIX;
        
        # Check if string contains non-ASCII characters
        if ($display_name =~ /[^\x00-\x7F]/) {
            # Ensure proper UTF-8 internal representation
            utf8::decode($display_name) unless utf8::is_utf8($display_name);
            
            # Encode entire display name as single MIME-Header block
            # This creates a proper RFC 2047 encoded-word
            my $encoded_name;
            if ($OUTPUT_MIME_ENCODING eq 'UTF-8') {
                # Use UTF-8 encoding (modern standard)
                $encoded_name = encode('MIME-Header', $display_name);
            } else {
                # Use ISO-2022-JP encoding (Japanese traditional)
                $encoded_name = encode('MIME-Header-ISO_2022_JP', $display_name);
            }
            $new_from = $encoded_name . ' <' . $MAIL_LIST . '>';
        } else {
            # ASCII only, use with quotes
            $display_name =~ s/"/\\"/g;  # Escape existing quotes
            $new_from = '"' . $display_name . '" <' . $MAIL_LIST . '>';
        }
    } else {
        # If no display name found, use local part of email address
        my $local_part = $email_address || 'unknown';
        $local_part =~ s/@.*$//;
        $new_from = '"' . $local_part . $DISPLAY_NAME_SUFFIX . '" <' . $MAIL_LIST . '>';
    }
    
    # Set new From header
    &DEFINE_FIELD_FORCED('from', $new_from);
    
    # ========================================
    # Function: Parse From Header
    # ========================================
    sub extract_from_parts {
        my ($from_header) = @_;
        my $display_name = '';
        my $email_address = '';
        
        # Return empty if From header is empty
        return ('', '') unless $from_header;
        
        # Store original for processing
        my $decoded_from = $from_header;
        
        # Check if header contains MIME encoding
        if ($from_header =~ /=\?[\w\-]+\?[BQbq]\?/) {
            # MIME encoded header detected - decode it
            my $temp = decode('MIME-Header', $from_header);
            if (defined $temp) {
                $decoded_from = $temp;
                # Ensure UTF-8 flag is set properly
                utf8::decode($decoded_from) unless utf8::is_utf8($decoded_from);
            }
        } else {
            # Not MIME encoded - should be ASCII only per RFC 5322
            # Log warning if non-ASCII bytes detected (RFC violation)
            if ($decoded_from =~ /[\x80-\xFF]/) {
                &LOG("warning: Non-ASCII bytes in non-MIME header (RFC violation): $from_header");
                
                # Special case: ISO-2022-JP with escape sequences
                # Some older systems might pass this through
                if ($decoded_from =~ /\x1b\$B/) {
                    my $temp = decode('iso-2022-jp', $decoded_from);
                    if (defined $temp) {
                        $decoded_from = $temp;
                    }
                }
                # For other non-ASCII cases, continue with original
                # (will likely result in using email local part as fallback)
            }
        }
        
        # Parse From header structure
        # Remove any leading/trailing whitespace
        $decoded_from =~ s/^\s+//;
        $decoded_from =~ s/\s+$//;
        
        # Pattern 1: "Display Name" <email@example.com>
        if ($decoded_from =~ /^"([^"]*(?:\\.[^"]*)*)"\s*<([^>]+)>/) {
            $display_name = $1;
            $email_address = $2;
            # Unescape quotes in display name
            $display_name =~ s/\\"/"/g;
        }
        # Pattern 2: Display Name <email@example.com> (no quotes)
        elsif ($decoded_from =~ /^([^<]+?)\s*<([^>]+)>/) {
            $display_name = $1;
            $email_address = $2;
            # Clean up display name
            $display_name =~ s/^\s+//;
            $display_name =~ s/\s+$//;
        }
        # Pattern 3: <email@example.com> (no display name)
        elsif ($decoded_from =~ /<([^>]+)>/) {
            $email_address = $1;
            $display_name = '';
        }
        # Pattern 4: email@example.com (bare email)
        elsif ($decoded_from =~ /([^\s<>]+@[^\s<>]+)/) {
            $email_address = $1;
            $display_name = '';
        }
        else {
            # Unable to parse
            &LOG("warning: Unable to parse From header: $decoded_from");
            # Try to extract email as last resort
            if ($decoded_from =~ /([^\s<>]+@[^\s<>]+)/) {
                $email_address = $1;
            }
        }
        
        # Clean up extracted values
        $email_address =~ s/^\s+//;
        $email_address =~ s/\s+$//;
        
        if ($display_name) {
            # Remove extra whitespace
            $display_name =~ s/^\s+//;
            $display_name =~ s/\s+$//;
            $display_name =~ s/\s+/ /g;
            
            # IMPORTANT: Remove surrounding quotes that may have been included from MIME decode
            # This prevents double-quoting when re-encoding
            $display_name =~ s/^"//;
            $display_name =~ s/"$//;
        }
        
        return ($display_name, $email_address);
    }
    
    # ========================================
    # End of Hook Processing
    # ========================================
};