Merge pull request #505 from ikedas/issue-502 by ikedas

Long email addresses in system messages may be folded #502

src/lib/Sympa/Tools/Text.pm

@@ -123,10 +123,12 @@ sub wrap_text {
     $cols = 78 unless defined $cols;
     return $text unless $cols;
 
+    my $email_re = Sympa::Regexps::email();
     $text = Text::LineFold->new(
         Language      => Sympa::Language->instance->get_lang,
         OutputCharset => (Encode::is_utf8($text) ? '_UNICODE_' : 'utf8'),
         Prep          => 'NONBREAKURI',
+        prep          => [$email_re, sub { shift; @_ }],
         ColumnsMax    => $cols
     )->fold($init, $subs, $text);