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.1 -r1.2
--- openacs-4/packages/forums/tcl/messages-procs.tcl	29 May 2002 21:40:10 -0000	1.1
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	30 May 2002 06:25:52 -0000	1.2
@@ -47,16 +47,20 @@
         # Select all the important information
         get -message_id $message_id -array message
 
-        set new_content "$message(user_name) ($message(user_email)) posted on [util_AnsiDatetoPrettyDate $message(posting_date)]:"
+        set new_content "$message(forum_name) - $message(root_subject)\n"
+        append new_content "$message(user_name) ($message(user_email)) posted on [util_AnsiDatetoPrettyDate $message(posting_date)]:"
         append new_content "\n\n"
         append new_content $message(content)
 
         # Do the notification for the forum
-        notification::new -type_id [notification::type::get_type_id -short_name forums_forum_notif] \
+        notification::new \
+                -type_id [notification::type::get_type_id -short_name forums_forum_notif] \
                 -object_id $message(forum_id) -response_id $message(message_id) -notif_subject $message(subject) -notif_text $new_content
         
         # Eventually we need notification for the root message too
-        # FIXME
+        notification::new \
+                -type_id [notification::type::get_type_id -short_name forums_message_notif] \
+                -object_id $message(root_message_id) -response_id $message(message_id) -notif_subject $message(subject) -notif_text $new_content
     }
     
     ad_proc -public edit {