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.3 -r1.4
--- openacs-4/packages/forums/tcl/messages-procs.tcl	3 Jun 2002 05:53:55 -0000	1.3
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	3 Jun 2002 07:30:18 -0000	1.4
@@ -33,7 +33,11 @@
 
         db_transaction {
             set message_id [package_instantiate_object -extra_vars $extra_vars forums_message]
-            do_notifications -message_id $message_id
+
+            get -message_id $message_id -array message
+            if {[info exists message(status)] && [string equal $message(status) approved]} {
+                do_notifications -message_id $message_id
+            }
         }
 
         return $message_id
@@ -136,7 +140,10 @@
     } {
         approve a message
     } {
-        set_state -message_id $message_id -state approved
+        db_transaction {
+            set_state -message_id $message_id -state approved
+            do_notifications -message_id $message_id
+        }
     }
 
     ad_proc -public delete {
@@ -170,4 +177,5 @@
     } {
         db_exec_plsql thread_open {}
     }
+
 }