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;
