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;