MIME::Entity 标头编码正确吗？

Question

我使用 Perl 中的 MIME::Entity 模块来创建 MIME 消息。一些标头似乎编码正常，而其他标头似乎存在折叠问题。

代码：

use strict;
use Encode;
use MIME::Entity;

my %build_params = (
    'Charset'    => 'UTF-8',
    'From'       => encode('MIME-Header', 'Fantasy Email <[email protected]>'),
    'Subject'    => encode('MIME-Header', "A very long subject that will span on multiple lines in the headers, with a leading sp\
ace at the beginning of each new line."),
    'Type'       => 'multipart/alternative',
);


my $top = MIME::Entity->build(%build_params);

$top->print_header();

输出：

Content-Type: multipart/alternative;
 boundary="----------=_1312196104-11708-0";
 charset="UTF-8"
Content-Transfer-Encoding: binary
MIME-Version: 1.0
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Subject: A very long subject that will span on multiple lines in the
 headers,  with a leading space at the beginning of each new line.
From: Fantasy Email
 <vujerldujhgurtelhwgutrwhgunwlhvulhgvnuwlhvuwlnhvgnulwh@gmail .com>

Subject 似乎被正确地分成多行。 From 没有，在 com 之前留了一个空格，但换行符消失了。

这是标准行为还是我在 MIME::Entity 中发现了错误？

Answer 1

Encode::MIME::Header（称为 encode('MIME-Header', ...)）会进行一些行分割（在 RFC 822）。

不幸的是，MIME::Entity 也进行了一些行分割，可能是以不同的方式。它还消除了 Encode::MIME::Header 生成的换行符。但它留下了空间。

我很乐意让 MIME::Entity 处理我的标头的编码，但看起来它只是执行行分割部分。所以我想我还是得自己编码。

作为解决方法，我从编码的标头中删除了行分割标记

 my $encoded_from = encode('MIME-Header', 'Fantasy Email <[email protected]>');
 $encoded_from =~ s/\r?\n\s//g;

（对于主题也是如此。）

现在输出如下所示：

Subject: A very long subject that will span on multiple lines in the
 headers, with a leading space at the beginning of each new line.
From: Fantasy Email
 <[email protected]>

我想知道是否有更优雅的解决方案，例如 Encode::MIME::Header具有 MIME::Entity 兼容模式或类似模式。