1234567891011121314151617181920212223242526272829303132333435363738 |
- use strict;
- use v5.10;
- AddModuleDescription('emailquote.pl', 'Email Quote Extension');
- our ($q, $bol, @MyRules);
- push(@MyRules, \&EmailQuoteRule);
- sub EmailQuoteRule {
-
- if ($bol && m/\G(\s*\n)*((\>))+\n/cg) {
- return $q->p();
- }
-
-
-
- elsif ($bol && m/\G(\s*\n)*((\>)+)[ \t]/cg
- or InElement('dd') && m/\G(\s*\n)+((\>)+)[ \t]/cg) {
- my $leng = length($2) / 4;
- return CloseHtmlEnvironmentUntil('dd') . OpenHtmlEnvironment('dl',$leng, 'quote')
- . $q->dt() . AddHtmlEnvironment('dd');
- }
- return;
- }
|