Index: openacs-4/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	5 Jun 2006 11:57:30 -0000	1.15
+++ openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	19 Jun 2006 06:35:45 -0000	1.16
@@ -540,18 +540,6 @@
     @error 
 } {
 
-    # Use this to build up extra mail headers
-    set extra_headers [ns_set new]
-
-    # This should disable most auto-replies
-    ns_set put $extra_headers Precedence list
-
-    set message_data [build_mime_message $body_text $body_html]
-    ns_set put $extra_headers MIME-Version [ns_set get $message_data MIME-Version]
-    ns_set put $extra_headers Content-ID [ns_set get $message_data Content-ID]
-    ns_set put $extra_headers Content-Type [ns_set get $message_data Content-Type]
-    set content [ns_set get $message_data body]
-
     foreach to $to_addr {
 	if { ![empty_string_p $to] } {
 	    acs_mail_lite::complex_send \
@@ -562,7 +550,8 @@
 		-object_id $object_id \
 		-mime_type $mime_type \
 		-no_callback \
-		-use_sender
+		-use_sender \
+		-extraheaders [list [list Precedence list]]
 	}
     }
 }