fix quoted URL generation in feeds

[public-inbox.git] / lib / PublicInbox / MDA.pm

diff --git a/lib/PublicInbox/MDA.pm b/lib/PublicInbox/MDA.pm
index 22879236e0b76dddda14df0aa605e3cdfedbe80f..bb14ae50cf27a8d28dd9bf87d40686814a2f8650 100644 (file)
--- a/lib/PublicInbox/MDA.pm
+++ b/lib/PublicInbox/MDA.pm
@@ -4,8 +4,10 @@ package PublicInbox::MDA;
 use strict;
 use warnings;
 use Email::Address;
+use Encode qw/decode encode/;
 use Date::Parse qw(strptime);
 use constant MAX_SIZE => 1024 * 500; # same as spamc default
+use constant cmd => qw/ssoma-mda -1/;
 
 # drop plus addressing for matching
 sub __drop_plus {
@@ -53,4 +55,32 @@ sub recipient_specified {
        return 0;
 }
 
+# RFC2919 and RFC2369
+sub set_list_headers {
+       my ($class, $simple, $dst) = @_;
+       my $pa = "<$dst->{-primary_address}>";
+       $simple->header_set("List-Id", $pa);
+       $simple->header_set("List-Post", $pa);
+
+       my $url = $dst->{url};
+       if (defined $url) {
+               $simple->header_set("List-Archive", "<$url>");
+               $simple->header_set("List-Help", "<${url}help>");
+       }
+}
+
+# returns a 3-element array: name, email, date
+sub author_info {
+       my ($class, $simple) = @_;
+
+       my $from = decode('MIME-Header', $simple->header('From'));
+       $from = encode('utf8', $from);
+       my @from = Email::Address->parse($from);
+       my $name = $from[0]->name;
+       defined $name or $name = '';
+       my $email = $from[0]->address;
+       defined $email or $email = '';
+       ($name, $email, $simple->header('Date'));
+}
+
 1;