about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-10-16 00:39:56 +0000
committerEric Wong <e@80x24.org>2019-10-16 08:13:11 +0000
commit37724c7e792ca0e1df9f64cfc17cebf7359ca9f0 (patch)
tree60363627f5760625a2589d65c48a2d18f23304d8
parent356e1db5135802ed468719dfcd1f1c3f9dba9fff (diff)
downloadpublic-inbox-37724c7e792ca0e1df9f64cfc17cebf7359ca9f0.tar.gz
Since -mda now supports List-ID to better support mirroring of
existing mailing lists, it probably makes sense to support
disabling the precheck function to provide more accurate (though
potentially spammier) mirrors of lists
-rw-r--r--Documentation/public-inbox-mda.pod25
-rwxr-xr-xscript/public-inbox-mda7
-rw-r--r--t/mda.t15
3 files changed, 45 insertions, 2 deletions
diff --git a/Documentation/public-inbox-mda.pod b/Documentation/public-inbox-mda.pod
index 921b7a15..01bb8476 100644
--- a/Documentation/public-inbox-mda.pod
+++ b/Documentation/public-inbox-mda.pod
@@ -16,6 +16,31 @@ By default, it relies on L<spamc(1)> for filtering mail,
 but may be disabled via
 L<public-inbox-config(5)/publicinboxmda.spamcheck>
 
+=head1 OPTIONS
+
+=over 8
+
+=item --no-precheck
+
+By default, public-inbox-mda does some simple checks before
+invoking L<spamc(1)> since it is intended to receive mail before
+it goes to a mailing list.
+
+However, some users prefer to use public-inbox-mda to mirror
+mailing lists.  This option exists to support those users.
+
+Using this option, the following prechecks are disabled:
+
+  * multiple Message-IDs
+  * non-existent Message-IDs
+  * Message-IDs longer than 244 characters long
+  * From: header shorter than 3 characters
+  * Subject: header shorter than 2 characters
+  * unusable Date: headers
+  * inbox address specified in To: or Cc: header
+
+=back
+
 =head1 ENVIRONMENT
 
 =over 8
diff --git a/script/public-inbox-mda b/script/public-inbox-mda
index 2655a6c5..9b8753da 100755
--- a/script/public-inbox-mda
+++ b/script/public-inbox-mda
@@ -5,7 +5,8 @@
 # Mail delivery agent for public-inbox, run from your MTA upon mail delivery
 use strict;
 use warnings;
-my $usage = 'public-inbox-mda < rfc2822_message';
+my $usage = 'public-inbox-mda [OPTIONS] < rfc2822_message';
+my $precheck = grep(/\A--no-precheck\z/, @ARGV) ? 0 : 1;
 my ($ems, $emm);
 
 sub do_exit {
@@ -55,7 +56,9 @@ $dst->{mainrepo} or do_exit(67);
 $dst = PublicInbox::InboxWritable->new($dst);
 
 # pre-check, MDA has stricter rules than an importer might;
-do_exit(0) unless PublicInbox::MDA->precheck($simple, $dst->{address});
+if ($precheck && !PublicInbox::MDA->precheck($simple, $dst->{address})) {
+        do_exit(0);
+}
 $simple = undef;
 my $spam_ok;
 if ($spamc) {
diff --git a/t/mda.t b/t/mda.t
index 3cab590b..92e8ad0d 100644
--- a/t/mda.t
+++ b/t/mda.t
@@ -293,6 +293,21 @@ EOF
         my $path = mid2path($mid);
         my $msg = `git --git-dir=$maindir cat-file blob HEAD:$path`;
         like($msg, qr/\Q$list_id\E/, 'delivered message w/ List-ID matches');
+
+        # try a message w/o precheck
+        $simple = Email::Simple->new(<<EOF);
+To: You <you\@example.com>
+List-Id: <$list_id>
+
+this message would not be accepted without --no-precheck
+EOF
+        $in = $simple->as_string;
+        my ($out, $err) = ('', '');
+        IPC::Run::run([$mda, '--no-precheck'], \$in, \$out, \$err);
+        is($?, 0, 'mda OK with List-Id match and --no-precheck');
+        my $cur = `git --git-dir=$maindir diff HEAD~1..HEAD`;
+        like($cur, qr/this message would not be accepted without --no-precheck/,
+                '--no-precheck delivered message anyways');
 }
 
 done_testing();