Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv7629
Modified Files:
mhtxtplain.pl
Log Message:
* Bug Fix: #725.
Index: mhtxtplain.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhtxtplain.pl,v
retrieving revision 2.18
retrieving revision 2.19
diff -C2 -r2.18 -r2.19
*** mhtxtplain.pl 14 May 2002 01:08:57 -0000 2.18
--- mhtxtplain.pl 21 Jun 2002 22:14:15 -0000 2.19
***************
*** 305,309 ****
if ($textformat eq 'flowed') {
! # Initial code for format=flowed by Ken Hirsch (May 2002).
# text/plain; format=flowed defined in RFC2646
--- 305,309 ----
if ($textformat eq 'flowed') {
! # Initial code for format=flowed contributed by Ken Hirsch (May 2002).
# text/plain; format=flowed defined in RFC2646
***************
*** 328,332 ****
# Lines that end with no spaces are
# considered to have hard line breaks.
! $chunk =~ s/(?<! )(\r?\n|\Z)/<br>$1/g;
} else {
--- 328,335 ----
# Lines that end with no spaces are
# considered to have hard line breaks.
! # XXX: Negative look-behind assertion not supported
! # on older versions of Perl 5 (<5.6)
! #$chunk =~ s/(?<! )(\r?\n|\Z)/<br>$1/g;
! $chunk =~ s/(^|[^ ])(\r?\n|\Z)/$1<br>$2/mg;
} else {
***************
*** 353,359 ****
} else {
! # I think the above regex will always match, but
! # I put this in here to catch any weird cases
! # so there's no infinite loop
warn qq/\n/,
qq/Warning: Dequoting problem with format=flowed data\n/,
--- 356,360 ----
} else {
! # The above regex should always match, but just in case...
warn qq/\n/,
qq/Warning: Dequoting problem with format=flowed data\n/,
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV