[Mimedefang] name file lenght
Marco Berizzi
pupilla at hotmail.com
Tue May 28 08:24:52 EDT 2002
David, thanks a lot.
>From: "David F. Skoll" <dfs at roaringpenguin.com>
>Reply-To: mimedefang at lists.roaringpenguin.com
>To: mimedefang at lists.roaringpenguin.com
>Subject: Re: [Mimedefang] name file lenght
>Date: Mon, 27 May 2002 13:47:27 -0400 (EDT)
>
>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));
>
>_______________________________________________
>MIMEDefang mailing list
>MIMEDefang at lists.roaringpenguin.com
>http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com
More information about the MIMEDefang
mailing list