You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by gb...@apache.org on 2018/08/27 10:41:59 UTC
svn commit: r1839294 - in /spamassassin:
branches/3.4/lib/Mail/SpamAssassin/MailingList.pm
trunk/lib/Mail/SpamAssassin/MailingList.pm
Author: gbechis
Date: Mon Aug 27 10:41:59 2018
New Revision: 1839294
URL: http://svn.apache.org/viewvc?rev=1839294&view=rev
Log:
detect Sympa mailinglists, bz #7523
Modified:
spamassassin/branches/3.4/lib/Mail/SpamAssassin/MailingList.pm
spamassassin/trunk/lib/Mail/SpamAssassin/MailingList.pm
Modified: spamassassin/branches/3.4/lib/Mail/SpamAssassin/MailingList.pm
URL: http://svn.apache.org/viewvc/spamassassin/branches/3.4/lib/Mail/SpamAssassin/MailingList.pm?rev=1839294&r1=1839293&r2=1839294&view=diff
==============================================================================
--- spamassassin/branches/3.4/lib/Mail/SpamAssassin/MailingList.pm (original)
+++ spamassassin/branches/3.4/lib/Mail/SpamAssassin/MailingList.pm Mon Aug 27 10:41:59 2018
@@ -104,11 +104,14 @@ sub detect_ml_mailman {
# List-Unsubscribe: <mailto:sympa@somedomain.com?subject=unsubscribe%somelist>
# List-Post: <ma...@somedomain.com>
# List-Owner: <ma...@somedomain.com>
+# X-Mailer: Sympa 6.2.22
+# X-Sympa-To: somelist@somedomain.com
# [and optionally] List-Archive: <http://www.somedomain.com/wws/arc/somelist>
-# NB: This isn't implemented, since there is nothing here saying "Sympa".
sub detect_ml_sympa {
my ($self) = @_;
+ return 1 if $self->get('X-Mailer') =~ /^Sympa \d\.\d\.\d/;
+ return 1 if defined ($self->get('X-Sympa-To',undef));
return 0;
}
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/MailingList.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/MailingList.pm?rev=1839294&r1=1839293&r2=1839294&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/MailingList.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/MailingList.pm Mon Aug 27 10:41:59 2018
@@ -104,11 +104,14 @@ sub detect_ml_mailman {
# List-Unsubscribe: <mailto:sympa@somedomain.com?subject=unsubscribe%somelist>
# List-Post: <ma...@somedomain.com>
# List-Owner: <ma...@somedomain.com>
+# X-Mailer: Sympa 6.2.22
+# X-Sympa-To: somelist@somedomain.com
# [and optionally] List-Archive: <http://www.somedomain.com/wws/arc/somelist>
-# NB: This isn't implemented, since there is nothing here saying "Sympa".
sub detect_ml_sympa {
my ($self) = @_;
+ return 1 if $self->get('X-Mailer') =~ /^Sympa \d\.\d\.\d/;
+ return 1 if defined ($self->get('X-Sympa-To',undef));
return 0;
}