gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 24588: Prevent e-mails from Koha to be flagged as spam 

Set the e-mail headers Mailer-X and MessageID by Koha,
to gain a better positive score from the spam filter.

To test:
1) Let Koha send an e-mail message.
2) Check the header of this e-mail message with your e-mail client.
   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: <E1iyZRY-0006XT-0t@FQDN>
3) Apply patch.
4) Repeat step 1.
5) Check the header of the new e-mail message with your e-mail client.
   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>
6) Sign off.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Ulrich Kleiber 2020-02-05 11:04:20 +01:00 committed by Martin Renvoize
parent d030aca6a9
commit a24a82d757
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Koha/Email.pm
View File

@ -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;

1
cpanfile
View File

@ -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';