Subj : Deleting netmail attach messages
To   : Stas Mishchenkov
From : Sean Rima
Date : Thu Aug 03 2023 11:36 am


 SM> Hi Sean!

 SM> Tuesday August 01 2023 12:01, you wrote to All:

 SR>> How do I delete netmail attach messages that come in with files and
 SR>> tics. I searched the texi file but cannot see it

 SM> hptperlfile /home/fido/perl/filter.pl

 SM> ---- filter.pl ----

 SM> sub filter()
 SM> {
 SM>   unless ( $area ) {
 SM>     if ( istous($toaddr) ) {
 SM>       if ( $fromname eq 'FileFix' ) {
 SM>         my $attrr = attr2str( $attr )
 SM>         if ( $attrr  =~ /\bAtt\b/i ) {
 SM>                 $kill = 1;
 SM>                 return 'Attach from FileFix killed.';
 SM>         }
 SM>       }
 SM> # ...
 SM>     }
 SM> # ...
 SM>   }
 SM> }


 SM> sub istous($)
 SM> {
 SM>     my ( $addrr ) = @_;
 SM>     for my $cfg_addr ( @{$config{addr}} ) {
 SM>         if( $addrr eq $cfg_addr ) {
 SM>             return 1;
 SM>         }
 SM>     }
 SM> return 0;
 SM> }

 SM> -------------------

Thanks will log into the pc and try

Sean Rima
There Can Only Be 1
--- AfterShock/Android 1.7.4
 * Origin: Tcob1 (2:263/1.1)

.