Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/forums/www/message-email.tcl	28 Nov 2002 15:53:19 -0000	1.4.2.1
+++ openacs-4/packages/forums/www/message-email.tcl	12 May 2003 20:58:34 -0000	1.4.2.2
@@ -44,10 +44,10 @@
     # Get the data
     forum::message::get -message_id $message_id -array message
 
-    set new_body "$pre_body"
+    set new_body "[ad_html_to_text $pre_body]"
     append new_body "\n\n===================================\n\n"
     append new_body "On $message(posting_date), $message(user_name) wrote:\n\n"
-    append new_body "$message(content)\n"
+    append new_body "[ad_html_to_text $message(content)]\n"
 
     # Send the email
     acs_mail_lite::send -to_addr $to_email \