Commit 2937e8b1 authored by olivier.salaun's avatar olivier.salaun
Browse files

[change][#6022][Submited by Soji Ikeda] Text::Wrap module worked only with...

[change][#6022][Submited by Soji Ikeda] Text::Wrap module worked only with languages with word separator (space). New module Text::LineFold supports most languages.


git-svn-id: https://subversion.renater.fr/sympa/trunk@6074 05aa8bb8-cd2b-0410-b1d7-8918dfa770ce
parent 6a79aeff
......@@ -358,6 +358,7 @@ sub check_cpan {
'HTML::FormatText' => 'HTML-Format',
'Term::ProgressBar' => 'Term-ProgressBar',
'Time::HiRes' => 'Time-HiRes',
'Text::LineFold' => 'Unicode-LineBreak',
);
my %opt_CPAN = (
......
......@@ -44,7 +44,7 @@ use Archive::Zip;
use strict 'vars';
use Time::Local;
use Text::Wrap;
use Text::LineFold;
use MIME::Lite::HTML;
use MIME::Lite;
 
......@@ -15150,9 +15150,7 @@ sub do_compose_mail {
return undef;
}
 
$Text::Wrap::columns = 80;
$Text::Wrap::huge = 'overflow';
$in{'body'} = &Text::Wrap::wrap ('','',$in{'body'});
$in{'body'} = Text::LineFold->new(Language => &Language::GetLang(), UserBreaking => ['NONBREAKURI'])->fold($in{'body'}, 'PLAIN');
 
my @body = split /\0/, $in{'body'};
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment