| CC: | David Golden <dagolden [...] cpan.org> |
| Subject: | [PATCH] Put Message-ID in brackets per RFC2822 |
| Date: | Tue, 13 Jul 2010 21:24:51 -0400 |
| To: | bug-Email-MIME-Kit [...] rt.cpan.org |
| From: | David Golden <dagolden [...] cpan.org> |
---
lib/Email/MIME/Kit.pm | 2 +-
t/single.t | 5 ++++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/lib/Email/MIME/Kit.pm b/lib/Email/MIME/Kit.pm
index a94f83c..0b8021c 100644
--- a/lib/Email/MIME/Kit.pm
+++ b/lib/Email/MIME/Kit.pm
@@ -230,7 +230,7 @@ has assembler => (
);
sub _generate_content_id {
- Email::MessageID->new->as_string;
+ Email::MessageID->new->in_brackets;
}
=head1 PERL EMAIL PROJECT
diff --git a/t/single.t b/t/single.t
index 8b33762..9c44d5d 100644
--- a/t/single.t
+++ b/t/single.t
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 4;
use lib 't/lib';
use Email::MIME::Kit;
@@ -16,5 +16,8 @@ my $email = $kit->assemble;
my @parts = $email->subparts;
is(@parts, 0, "no subparts on single-part email");
like($email->body, qr{never been harder}, "the body is right there!");
+like($email->header("Message-ID"), qr/\A<[^@]+@[^>]+>\z/,
+ "message ID in brackets"
+);
--
1.7.0.4