Index: openacs.org-dev/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs.org-dev/packages/forums/tcl/messages-procs.tcl	5 Sep 2002 17:27:47 -0000	1.7
+++ openacs.org-dev/packages/forums/tcl/messages-procs.tcl	31 Oct 2002 18:32:36 -0000	1.8
@@ -61,8 +61,12 @@
         append new_content $message(content)
 
         # send text for now.
-        set new_content [ad_html_to_text $new_content]
-
+         if { $message(html_p) == "t" } {
+             set body_text [ad_html_to_text $message(content)]
+         } else {
+             set body_text [wrap_string $message(content) 72]
+         }
+	
         # Do the notification for the forum
         notification::new \
             -type_id [notification::type::get_type_id \