Index: openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql,v
diff -u -r1.2.14.3 -r1.2.14.4
--- openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql	2 Jan 2016 20:57:57 -0000	1.2.14.3
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql	9 Dec 2016 09:15:27 -0000	1.2.14.4
@@ -11,7 +11,15 @@
      </querytext>
 </fullquery>
 
+<fullquery name="email_image::new_item.lob_size">
+  <querytext>
+        update cr_revisions 
+	set content_length = lob_length(lob)
+        where revision_id = :revision_id
+  </querytext>
+</fullquery>
 
+
 <fullquery name="email_image::edit_email_image.lob_size">
       <querytext>
         update cr_revisions