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)]
      }
Index: openacs-4/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/forums/www/forum-view.tcl	3 Oct 2003 18:26:31 -0000	1.19
+++ openacs-4/packages/forums/www/forum-view.tcl	7 Nov 2003 17:24:01 -0000	1.20
@@ -174,7 +174,7 @@
 ]
 
 set page_title "[_ forums.Forum_1] $forum(name)"
-set context [list $forum(name)]
+set context [list [ad_quotehtml $forum(name)]]
 
 
 
Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/forums/www/message-post.tcl	12 Oct 2003 00:14:26 -0000	1.27
+++ openacs-4/packages/forums/www/message-post.tcl	7 Nov 2003 17:24:01 -0000	1.28
@@ -157,7 +157,8 @@
             }
         }
 
-        set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]]
+
+        set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]
         lappend context "[_ forums.Post_a_Message]"
 
         ad_return_template message-post-confirm
@@ -253,7 +254,7 @@
 element set_properties message confirm_p -value 0
 element set_properties message subscribe_p -value 0
 
-set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]]
+set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]
 if {![empty_string_p $parent_id]} {
     lappend context [list "./message-view?message_id=$parent_message(message_id)" "$parent_message(subject)"]
     lappend context [_ forums.Post_a_Reply]