Re: Attachments (Was Re: Bleh - MS attachements)

[Stephen Hack]

The attached perl script handles removing of the tnef attachment##

it's worked for me.  (might want to test with a large assortment of message to
make sure that you're not loosing the attachments.)

##
## Remove the ms-tnef attachments
##

:0 
* B ?? ^Content-Type: \/(application/ms-tnef)$
{
    LOG="----------found garbage----------"

    # save backups
    :0 c
    $PMDIR/save.ms-tnef

    :0 f
    | $PMDIR/remove-attachment" "$MATCH
}


> > On Wed, Mar 03, 1999 at 08:12:54PM +0100, Christian Stigen Larsen wrote:
> > > Is there any patch, utility, script or something which
> > > can decode typical MS-attachements like
> > > 
> > >   [applica/ms-tnef, base64, 1.4M]
> > > 
> > > As I continually get these type of attachements life is
> > > really annoying, as I can't decode them (and the senders
> > > won't attach in another format).

-- 
Stephen P. Hack    mutt - vim - maildrop     http://www.uiuc.edu/ph/www/shack
[EMAIL PROTECTED]  Underwater Hockey Pres     http://www.uiuc.edu/ro/uwhockey
[EMAIL PROTECTED]     University of Illinois                    Computer Science

#!/home/shack/bin/perl

$mime = join ' ', @ARGV;
@ARGV = ();

$message = join '', <>;
$message =~ /Content-Type:[^\n]*boundary=(".*")/;
$boundary = $1;
$boundary =~ s/"//g;  #"

$date = scalar localtime;

$message =~ s/--$boundary\nContent-Type: 
$mime[\s\S]*\n--$boundary/\n--$boundary\nContent-Type: text\/plain\n\nRemoved a 
message of type $mime\n\n$0: $date\n\n\n--$boundary/m;

print $message;