∵ Takayoshi Saito ∴ 2013-03-19 ∞ 2'
RFC2821によって、1000バイトを超えるメールに関しては以下の制限があります。
text line(テキスト行)>CRLF/\>/ を含むテキスト行の最大長は、1000 文字である(透過処理のために二重化された先頭のドットは含まない)。この値は SMTP サービス拡張により増やされても良い。このため、sendmailであれ、qmailであれ、Postfixであれ、どのMTAでメールサーバーを構築しても1000バイトを超えるメールを送ろうとすると強制改行が入り、日本語などマルチバイト文字列を使っている場合は、改行が挿入された場所によっては文字化けが発生します。
RFCではSMTPサービス拡張により修正されても良いという書き方をしていますが、現在、この解決策を採用しているMTAはありません。そのため、もしスクリプトなどで1000バイトを超える未改行の文字列を受け取り、それをメール送信したいと思うならば、文字コードに合わせて適切な場所で改行を挿入するべきです。以下、Perlで各文字コード別に解決策を列挙します（参考：sendmail が勝手に改行コードを挿入する件）。
sub fold {
my ($str, $n) = @_;
my $ret = "";
my $len = 0;
# 指定無き場合、200文字で折り返す
$n ||= 400;
while($str =~ m{([\n]) | # 改行コード
([\x00-\x7F]) | # 1byte
(|[\xc0-\xdf][\x80-\xbf]) | # 2byte
([\xe0-\xef][\x80-\xbf][\x80-\xbf]) |
([\xf0-\xf7][\x80-\xbf][\x80-\xbf][\x80-\xbf]) |
([\xf8-\xfb][\x80-\xbf][\x80-\xbf][\x80-\xbf][\x80-\xbf]) |
([\xfc-\xfd][\x80-\xbf][\x80-\xbf][\x80-\xbf][\x80-\xbf][\x80-\xbf]) |
.}gx) {
if (defined $1) { $ret .= $1; $len = 0 };
if (defined $2) { $ret .= $2; $len++ };
if (defined $3) { $ret .= $3; $len += 2 };
if ($n &<= $len) { $ret .= "\n"; $len = 0 }
}
chomp $ret;
$tbody = $ret;
}
sub fold {
my ($str, $n) = @_;
my $ret = "";
my $len = 0;
# 指定無き場合、200文字で折り返す
$n ||= 400;
while($str =~ m{([\n]) | # 改行コード
([\x00-\x7F]) | # 1byte
([\x8E￥xA1-\xFE][\xA1-\xFE]) | # 2byte
.}gx) {
if (defined $1) { $ret .= $1; $len = 0 };
if (defined $2) { $ret .= $2; $len++ };
if (defined $3) { $ret .= $3; $len += 2 };
if ($n &<= $len) { $ret .= "\n"; $len = 0 }
}
chomp $ret;
return $ret;
}
sub fold {
my ($str, $n) = @_;
my $ret = "";
my $len = 0;
# 指定無き場合、200文字で折り返す
$n ||= 400;
while($str =~ m{([\n]) | # 改行コード
([\x00-\x7F\xA1-\xDF]) | # 1byte
([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]) | # 2byte
.}gx) {
if (defined $1) { $ret .= $1; $len = 0 };
if (defined $2) { $ret .= $2; $len++ };
if (defined $3) { $ret .= $3; $len += 2 };
if ($n &<= $len) { $ret .= "\n"; $len = 0 }
}
chomp $ret;
return $ret;
}