Index: openacs-4/packages/acs-mail-lite/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/lib/Attic/email.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-mail-lite/lib/email.tcl	11 Oct 2005 15:05:23 -0000	1.11
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl	18 Oct 2005 20:16:28 -0000	1.12
@@ -131,6 +131,14 @@
     }
 }
 
+if { [exists_and_not_null item_id] } {
+    append form_elements {
+	{item_id:text(hidden),optional
+	    {value $item_id}
+	}
+    }
+}
+
 if { ![exists_and_not_null action] } {
     set action [ad_conn url]
 }
@@ -370,7 +378,8 @@
                 -title $title \
                 -description $subject \
                 -content $content_body \
-                -content_format "text/plain"
+                -content_format "text/plain" \
+	        -item_id "$item_id"
 	    
             lappend recipients "<a href=\"[contact::url -party_id $party_id]\">$to</a>"