From fc2536054ace1284b9eea42c766bb6fffae2650c Mon Sep 17 00:00:00 2001 From: fREW Schmidt Date: Fri, 18 Mar 2016 18:08:22 -0700 Subject: [PATCH] Wrap In-Reply-To and References in <>'s --- lib/Email/Reply.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Email/Reply.pm b/lib/Email/Reply.pm index 9bb6ea7..03dbc41 100644 --- a/lib/Email/Reply.pm +++ b/lib/Email/Reply.pm @@ -88,13 +88,13 @@ sub _make_headers { push @header, Subject => $subject; my ($msg_id) = Email::Address->parse($self->{original}->header('Message-ID')); - push @header, 'In-Reply-To' => $msg_id; + push @header, 'In-Reply-To' => "<$msg_id>"; my @refs = Email::Address->parse($self->{original}->header('References')); @refs = Email::Address->parse($self->{original}->header('In-Reply-To')) unless @refs; push @refs, $msg_id if $msg_id; - push @header, References => join ' ', @refs if @refs; + push @header, References => join ' ', map "<$_>", @refs if @refs; if ($self->{all}) { my @addrs = (