diff options
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Locale/Po4a/Text.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm index 5236095..0cc2cc8 100644 --- a/perl/Locale/Po4a/Text.pm +++ b/perl/Locale/Po4a/Text.pm @@ -179,6 +179,12 @@ sub parse { $paragraph=""; $wrapped_mode = 1; $self->pushline($line."\n"); + } elsif ($line =~ /^-- $/) { + # Break paragraphs on email signature hint + do_paragraph($self,$paragraph,$wrapped_mode); + $paragraph=""; + $wrapped_mode = 1; + $self->pushline($line."\n"); } elsif ( $line =~ /^=+$/ or $line =~ /^_+$/ or $line =~ /^-+$/) { @@ -237,6 +243,7 @@ sub parse { $wrapped_mode = 0 if ( $paragraph =~ /^>/ms # blockquote or $paragraph =~ /^( {8}|\t)/ms # monospaced + or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ms # Xapian macro or $paragraph =~ /[<>]/ms # maybe html or $paragraph =~ /^\s*\[\[\!\S[^\]]+$/ms # macro begin ); |