@@ -, +, @@ There should be no X-Mailer header with value 'Koha'. If there is an MessageID header, it is probably set by the MSA, e.g. Exim. Example: Message-Id: There should be a X-Mailer header with value 'Koha' and a MessageID header with a value set by Koha. Example: X-Mailer: Koha Message-Id: <15807387030.B731e.18490@FQDN> --- C4/Installer/PerlDependencies.pm | 5 +++++ Koha/Email.pm | 3 +++ 2 files changed, 8 insertions(+) --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -104,6 +104,11 @@ our $PERL_DEPS = { 'required' => '1', 'min_ver' => '1.103' }, + 'Email::MessageID' => { + 'usage' => 'Core', + 'required' => '1', + 'min_ver' => '1.406' + }, 'Exception::Class' => { 'usage' => 'Core', 'required' => '1.38', --- a/Koha/Email.pm +++ a/Koha/Email.pm @@ -19,6 +19,7 @@ package Koha::Email; use Modern::Perl; use Email::Valid; +use Email::MessageID; use base qw(Class::Accessor); use C4::Context; @@ -70,6 +71,8 @@ sub create_message_headers { $mail{'Message'} = $params->{message} if $params->{message}; $mail{'Subject'} = $params->{subject} if $params->{subject}; $mail{'Content-Type'} = $params->{contenttype} if $params->{contenttype}; + $mail{'X-Mailer'} = "Koha"; + $mail{'Message-ID'} = Email::MessageID->new->in_brackets; return %mail; } 1; --