From 296f1e2f6484b723c62941c4642396f36ce22d55 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Tue, 23 Mar 2021 11:14:43 -0300
Subject: [PATCH] Bug 28023: Fix Reply-To typo

This patch fixes a typo making the header useless.

To test:
1. Apply the regression tests patch
2. Run:
   $ kshell
  k$ prove t/Koha/Email.t
=> FAIL: The Reply-To header is not being set!
3. Apply this patch
4. Repeat 2
=> SUCCESS: Tests pass! the header is set!
5. Sign off :-D

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 9f79cdf9925c86856775a28bede9fec0dabfcd99)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 Koha/Email.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Koha/Email.pm b/Koha/Email.pm
index cb1046f731..64c811c9ef 100644
--- a/Koha/Email.pm
+++ b/Koha/Email.pm
@@ -120,7 +120,7 @@ sub create {
 
     my $email = $self->SUPER::new( $args );
 
-    $email->header( 'ReplyTo', $addresses->{reply_to} )
+    $email->header( 'Reply-To', $addresses->{reply_to} )
         if $addresses->{reply_to};
 
     $email->header( 'Sender'       => $addresses->{sender} ) if $addresses->{sender};
-- 
2.39.5