Index: openacs-4/packages/news/tcl/news-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v diff -u -N -r1.29 -r1.30 --- openacs-4/packages/news/tcl/news-procs.tcl 28 Apr 2009 09:49:11 -0000 1.29 +++ openacs-4/packages/news/tcl/news-procs.tcl 14 Jun 2009 07:47:40 -0000 1.30 @@ -393,13 +393,13 @@ if { [db_0or1row "get_news" "select item_id, publish_date, publish_title as title, publish_lead as lead, publish_body as body,html_p from news_items_live_or_submitted where news_id = :news_id"] } { set new_content "$title\n\n$lead" - set html_content [ad_html_text_convert "$title\n\n$lead"] + set html_content [ad_html_text_convert -- $new_content] if {$html_p} { - append new_content "\n\n[ad_html_text_convert -from text/html -to text/plain $body]" + append new_content "\n\n[ad_html_text_convert -from text/html -to text/plain -- $body]" append html_content "

$body" } else { append new_content "\n\n$body" - append html_content "

[ad_html_text_convert "$body"]" + append html_content "

[ad_html_text_convert -- $body]" } append new_content "\n\n[string repeat - 70]" append new_content "\n\n[parameter::get_from_package_key -package_key acs-kernel -parameter SystemURL][news_util_get_url $news_package_id]]item?item_id=$item_id \n\n"