On 15-04-2004 at 20:41, Alessandro Ranellucci wrote:

This would do the job for us:

use Text::Wrap; (...) $Text::Wrap::columns = $NewLine; $Text::Wrap::huge = 'overflow' #This prevents us from breaking URLs $Self->{Body} = wrap( '', '', $Self->Body );

Hmmm... actually this would break quoted text since it will have longer lines because of the "> " prefix. I think that quoted text should be wrapped at $NewLine-2 instead of just $NewLine to prevent this. --Alessandro.