Index: openacs-4/packages/forums/tcl/forums-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-email-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/tcl/forums-email-procs.tcl	20 Apr 2004 21:13:41 -0000	1.2
+++ openacs-4/packages/forums/tcl/forums-email-procs.tcl	12 Jul 2004 14:49:59 -0000	1.3
@@ -29,11 +29,7 @@
     append new_body "[_ forums.email_alert_body_header]
 [_ forums.Forum_1] $message(forum_name)
 Thread: $message(root_subject)\n\n"
-    if {$message(html_p)} {
-        append new_body "[ad_html_to_text -- $message(content)]"
-    } else {
-        append new_body $message(content)
-    }
+    append new_body [ad_html_text_convert -from $message(format) -to text/plain -- $message(content)]
 
     append new_body "\n\n-- \n[ad_url][ad_conn package_url]message-view?[export_vars -anchor $message(message_id) [list [list message_id $message(root_message_id)]]]\n"