Index: openacs-4/packages/forums/tcl/messages-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v diff -u -r1.21 -r1.22 --- openacs-4/packages/forums/tcl/messages-procs.tcl 28 Oct 2003 09:54:55 -0000 1.21 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 7 Nov 2003 17:24:00 -0000 1.22 @@ -39,8 +39,7 @@ if {[info exists message(state)] && [string equal $message(state) approved]} { do_notifications -message_id $message_id } - } on_error { - + } on_error { db_abort_transaction # Check to see if the message with a message_id matching the @@ -93,7 +92,7 @@ if { $message(html_p) } { - append text_version [ad_html_to_text $message(content)] + append text_version [ad_html_to_text -- $message(content)] } else { append text_version [wrap_string $message(content)] }