@@ -, +, @@ 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> --- Koha/Email.pm | 3 +++ cpanfile | 1 + 2 files changed, 4 insertions(+) --- 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; --- a/cpanfile +++ a/cpanfile @@ -36,6 +36,7 @@ requires 'DateTime::TimeZone', '1.20'; requires 'Digest::MD5', '2.36'; requires 'Digest::SHA', '5.43'; requires 'Email::Date', '1.103'; +requires 'Email::MessageID', '1.406'; requires 'Email::Valid', '0.190'; requires 'Exception::Class', '1.38'; requires 'File::Slurp', '9999.13'; --