Drop more headers.
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
parent
fc71f975af
commit
9e5f72b7ea
2 changed files with 25 additions and 17 deletions
|
|
@ -3,6 +3,7 @@ huhu 0.11.0 (unreleased)
|
||||||
* Update to current Debian version.
|
* Update to current Debian version.
|
||||||
* Add shell to new huhu mod users.
|
* Add shell to new huhu mod users.
|
||||||
* Add wrapper script for read-mail.pl
|
* Add wrapper script for read-mail.pl
|
||||||
|
* Drop more headers.
|
||||||
|
|
||||||
huhu 0.10 (unknown)
|
huhu 0.10 (unknown)
|
||||||
* huhu reports version 0.09 (from MOD/Displaylib.pm), but has code
|
* huhu reports version 0.09 (from MOD/Displaylib.pm), but has code
|
||||||
|
|
|
||||||
|
|
@ -88,6 +88,7 @@ sub connect_nntp($)
|
||||||
$nntp->authinfo($cfg_nntp_user, $cfg_nntp_pass);
|
$nntp->authinfo($cfg_nntp_user, $cfg_nntp_pass);
|
||||||
|
|
||||||
$nntp->starttls if $nntp->can_ssl();
|
$nntp->starttls if $nntp->can_ssl();
|
||||||
|
|
||||||
return $nntp;
|
return $nntp;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
@ -146,11 +147,14 @@ while (my $ref = $dataref->fetchrow_arrayref)
|
||||||
'Envelope-to',
|
'Envelope-to',
|
||||||
'Injection-Info', # defined by INN 2.6.x and Schnuerpel 2010
|
'Injection-Info', # defined by INN 2.6.x and Schnuerpel 2010
|
||||||
'Lines', # defined by INN 2.5.x or older
|
'Lines', # defined by INN 2.5.x or older
|
||||||
|
'Message-ID-Hash',
|
||||||
|
'X-Message-ID-Hash',
|
||||||
'NNTP-Posting-Date', # defined by INN 2.5.x or older
|
'NNTP-Posting-Date', # defined by INN 2.5.x or older
|
||||||
'NNTP-Posting-Host', # defined by INN 2.5.x or older
|
'NNTP-Posting-Host', # defined by INN 2.5.x or older
|
||||||
'Path',
|
'Path',
|
||||||
'Precedence', # Mailman
|
'Precedence', # Mailman
|
||||||
'Received',
|
'Received',
|
||||||
|
'Received-Spf',
|
||||||
'Status',
|
'Status',
|
||||||
'Return-Path',
|
'Return-Path',
|
||||||
'To',
|
'To',
|
||||||
|
|
@ -160,9 +164,12 @@ while (my $ref = $dataref->fetchrow_arrayref)
|
||||||
'X-Beenthere', # Mailman
|
'X-Beenthere', # Mailman
|
||||||
'X-Complaints-To', # defined by INN 2.5.x or older
|
'X-Complaints-To', # defined by INN 2.5.x or older
|
||||||
'X-Lang-Test',
|
'X-Lang-Test',
|
||||||
|
'X-Mailfrom',
|
||||||
'X-Mailman-Version', # Mailman
|
'X-Mailman-Version', # Mailman
|
||||||
|
'X-Mailman-Rule-Misses', ## Mailman 3
|
||||||
'X-MSMail-Priority', # Outlook
|
'X-MSMail-Priority', # Outlook
|
||||||
'X-NNTP-Posting-Host', # set by Schnuerpel 2009 or older
|
'X-NNTP-Posting-Host', # set by Schnuerpel 2009 or older
|
||||||
|
'X-NNTP-Posting-Date',
|
||||||
'X-Originating-IP',
|
'X-Originating-IP',
|
||||||
'X-Priority', # Outlook
|
'X-Priority', # Outlook
|
||||||
'X-Provags-ID', # GMX/1&1
|
'X-Provags-ID', # GMX/1&1
|
||||||
|
|
@ -177,7 +184,7 @@ while (my $ref = $dataref->fetchrow_arrayref)
|
||||||
'X-User-ID', # set by Schnuerpel 2009 or older
|
'X-User-ID', # set by Schnuerpel 2009 or older
|
||||||
'X-Virus-Scanned',
|
'X-Virus-Scanned',
|
||||||
'X-Y-Gmx-Trusted', # GMX/1&1
|
'X-Y-Gmx-Trusted', # GMX/1&1
|
||||||
'X-Zedat-Hint', # Uni Berlin/Individual?
|
'X-Zedat-Hint', # FU Berlin (moderators.dana.de)
|
||||||
);
|
);
|
||||||
|
|
||||||
#albasani-workaround fuer @invalid
|
#albasani-workaround fuer @invalid
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue