http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/examples/unsubscribe.milter?h=malloc_info
= 1 ; return SMFIS_CONTINUE if archive_addr ( lc ( $rcpt [ 0 ])); my $unsub = $priv ->{ header }->{ 'list-unsubscribe' } || []; my $n = 0 ; foreach my $u ( @ $unsub ) { # Milter indices are 1-based, # not 0-based like Perl arrays my $index = ++ $n ; my ( $k , $v , $list , $domain ) = @ $u ; next unless $k && $v && $list && $domain ; my $u = $crypt -> encrypt ( $rcpt [ 0 ]); $u = encode_base64url ( $u ); $v .= ", \n <https:// $domain /u/ $u /...