Index: openacs-4/packages/news-portlet/www/summary.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/summary.tcl,v
diff -u -r1.3 -r1.3.6.1
--- openacs-4/packages/news-portlet/www/summary.tcl	23 Oct 2003 09:19:34 -0000	1.3
+++ openacs-4/packages/news-portlet/www/summary.tcl	17 Jun 2004 20:52:55 -0000	1.3.6.1
@@ -72,8 +72,9 @@
 #This is a summary in the portlet we don't want it to be too long.
 
 set more_link ""
-if { [string length $publish_body] > 1000 } {
-    set publish_body [string_truncate -len 1000 -- $publish_body]
+set summary_length [news_portlet::get_summary_length]
+if { [string length $publish_body] > $summary_length } {
+    set publish_body [string_truncate -len $summary_length -- $publish_body]
     set more_link "<br><b>&raquo;</b> <a href=\"$url\">[_ news-portlet.Read_more]</a>"
 }