[Mimedefang] name file lenght

[David F. Skoll]

On Mon, 27 May 2002, Marco Berizzi wrote:

> I remember you that I'm using MD 2.6 and
> sendmail 8.12.3 on Slackware 8.0

Oh, then -structure won't work.

Anyway, I found the bug.  It's another bug in MIME::tools.  It does
not handle whitespace between encoded tokens correctly.

Below is a patch for this particular problem only.  I will update the
patch on my Web site and in the MIMEDefang package to include this
patch so that virgin MIME::tools 5.411a installations are fixed.

Apply this patch inside /usr/lib/perl5/site_perl/5.005/MIME (or wherever
your MIME::tools installation lives.)

Regards,

David.

*** Words.pm-ORIG	Mon May 27 13:42:59 2002
--- Words.pm	Mon May 27 13:43:54 2002
***************
*** 201,207 ****
  			    =\?([^?]*)     # "=?" + charset +
  			     \?([bq])      #  "?" + encoding +
  			     \?([^?]+)     #  "?" + data maybe with spcs +
! 			     \?=           #  "?="
  			    }xgi) {
  	    ($charset, $encoding, $enc) = ($1, lc($2), $3);
  	    $dec = (($encoding eq 'q') ? _decode_Q($enc) : _decode_B($enc));
--- 201,207 ----
  			    =\?([^?]*)     # "=?" + charset +
  			     \?([bq])      #  "?" + encoding +
  			     \?([^?]+)     #  "?" + data maybe with spcs +
! 			     \?=\s*        #  "?=" plus whitespace
  			    }xgi) {
  	    ($charset, $encoding, $enc) = ($1, lc($2), $3);
  	    $dec = (($encoding eq 'q') ? _decode_Q($enc) : _decode_B($enc));