Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -N -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	18 Sep 2015 08:07:33 -0000	1.22.2.1
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	20 Sep 2016 15:35:54 -0000	1.22.2.2
@@ -34,6 +34,10 @@
     
     @error 
 } {
+
+    # Generate a unique id for the message
+    # result from proc comes enveloped in <>
+    set rfc822_id [string range [acs_mail_lite::generate_message_id] 1 end-1]
     
     db_transaction {