--- TWiki.pm Thu Jun 3 22:57:03 2004 +++ /var/tmp/twiki20040507beta/lib/TWiki.pm Fri May 7 17:02:22 2004 @@ -1616,8 +1616,6 @@ # called by search, mailnotify & changes after calling readFileHead my $htext = $theText; - # limit summary to 1st paragraph - $htext =~ s/^[\n\r\s]*(.*?)\r*\n\s*\r*\n.*/$1/s; # Format e-mail to add spam padding (HTML tags removed later) $htext =~ s/([\s\(])(?:mailto\:)*([a-zA-Z0-9\-\_\.\+]+)\@([a-zA-Z0-9\-\_\.]+)\.([a-zA-Z0-9\-\_]+)(?=[\s\.\,\;\:\!\?\)])/$1 . &TWiki::Render::mailtoLink( $2, $3, $4 )/ge; $htext =~ s/<\!\-\-.*?\-\->//gs; # remove all HTML comments @@ -1642,8 +1640,8 @@ # letters and accents) - might be better to split on word boundary if # possible. - # limit first paragraph to 300 chars - $htext =~ s/(.{300})($regex{mixedAlphaNumRegex})(.*?)$/$1$2 \.\.\./g; + # limit to 162 chars + $htext =~ s/(.{162})($regex{mixedAlphaNumRegex})(.*?)$/$1$2 \.\.\./g; # Encode special chars into XML &#nnn; entities for use in RSS feeds # - no encoding for HTML pages, to avoid breaking international