Index: openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	31 Oct 2001 20:42:07 -0000	1.7
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	31 Aug 2002 19:00:41 -0000	1.8
@@ -366,7 +366,7 @@
             where body_id = :body_id
     }
     set headers [ns_set new]
-    ns_set put $headers "Message-Id" $header_message_id
+    ns_set put $headers "Message-Id" "<$header_message_id>"
 	# taking these out because they are redundant and 
 	# could conflict with the values in acs_mail_queue_outgoing
 #    if ![string equal $header_to ""] {