Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -N -r1.56 -r1.57
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	24 Dec 2006 11:46:50 -0000	1.56
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	2 Feb 2007 11:24:57 -0000	1.57
@@ -1250,6 +1250,7 @@
     }
 }    
 
+
 ad_proc -public -callback acs_mail_lite::incoming_email -impl contacts_mail_through {
     -array:required
     {-package_id ""}
@@ -1261,6 +1262,8 @@
 
     This allows you to go in direct communication with a customer using you standard e-mail program instead of having to go to the website.
 
+    It supports also a subject line like "$object_id: <real_subject>" so you can actually store the e-mail with an object.
+
     @author Malte Sussdorff (malte.sussdorff@cognovis.de)
     @creation-date 2005-12-18
     
@@ -1331,6 +1334,7 @@
 	}
 
 	if {$object_p} {
+	    # Trim the subject by the object_id
 	    regexp {:(.*)} $email(subject) match subject
 	    set subject [string trim $subject]
 	} else {