--- TWiki.pm.orig	2003-09-16 12:53:29.000000000 -0700
+++ TWiki.pm	2003-09-16 12:53:23.000000000 -0700
@@ -1151,6 +1151,9 @@
     # called by search, mailnotify & changes after calling readFileHead
 
     my $htext = $theText;
+    # PeterKlausner Codev.AllowDesignationOfSummary
+    $htext =~ s/^[\n\r\s]*(.*?)\r*\n\s*\r*\n.*/$1/s; # limit to 1st paragraph
+    # /PeterKlausner
     # 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 . &mailtoLink( $2, $3, $4 )/ge;
     $htext =~ s/<\!\-\-.*?\-\->//gs;  # remove all HTML comments
@@ -1165,9 +1168,11 @@
     $htext =~ s/\-\-\-+\+*\s*\!*/ /g; # remove heading formatting
     $htext =~ s/\s+[\+\-]*/ /g;       # remove newlines and special chars
 
-    # limit to 162 chars 
     # FIXME I18N: Avoid splitting within multi-byte character sets
-    $htext =~ s/(.{162})($mixedAlphaNumRegex)(.*?)$/$1$2 \.\.\./g;
+    # PeterKlausner Codev.AllowDesignationOfSummary
+    # limit paragraph to 400 chars (was 162)
+    $htext =~ s/(.{400})($mixedAlphaNumRegex)(.*?)$/$1$2 \.\.\./g;
+    # /PeterKlausner
 
     # Encode special chars into XML &#nnn; entities for use in RSS feeds
     # - no encoding for HTML pages, to avoid breaking international