Index: openacs-4/packages/forums/tcl/forum-reply-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forum-reply-procs.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/forums/tcl/forum-reply-procs.tcl 1 Nov 2003 08:45:38 -0000 1.4 +++ openacs-4/packages/forums/tcl/forum-reply-procs.tcl 2 Sep 2008 22:11:11 -0000 1.5 @@ -41,14 +41,15 @@ ad_proc -public process_reply { reply_id } { - ns_log debug "forum::notification::process_reply: processing reply $reply_id" # Get the data notification::reply::get -reply_id $reply_id -array reply + # get rid of Outlook HTML DOCTYPE + set reply(content) [regsub {} $reply(content) {}] + # Get the message information forum::message::get -message_id $reply(object_id) -array message - # Insert the message forum::message::new -forum_id $message(forum_id) \ -parent_id $message(message_id) \