Index: openacs.org-dev/packages/acs-mail/tcl/acs-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-mail/tcl/acs-mail-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-mail/tcl/acs-mail-procs.tcl	9 Jul 2002 17:34:58 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-mail/tcl/acs-mail-procs.tcl	8 Oct 2002 15:46:46 -0000	1.1.1.2
@@ -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 ""] {