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 
Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl,v
diff -u -r1.14.2.3 -r1.14.2.4
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	28 Oct 2015 09:38:34 -0000	1.14.2.3
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	9 Dec 2016 09:15:27 -0000	1.14.2.4
@@ -173,7 +173,7 @@
                              -description "User email image"  -creation_ip $creation_ip ]
         
         email_image::add_relation -user_id $user_id -item_id $item_id
-        db_dml update_cr_items_new {}
+        content::item::set_live_revision -revision_id $revision_id
         db_dml new_lob_content {} -blob_files [list ${dest_path}]
         db_dml lob_size {}
     }
@@ -250,7 +250,7 @@
             set revision_id [content::revision::new -item_id $item_id -title $image_name \
                                  -mime_type $mime_type  \
                                  -description "User email image" -creation_ip $creation_ip ]
-            db_dml update_cr_items {}
+            content::item::set_live_revision -revision_id $revision_id
             db_dml lob_content {} -blob_files [list ${dest_path}]
             db_dml lob_size {}
         }
Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.xql,v
diff -u -r1.3.12.1 -r1.3.12.2
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.xql	28 Oct 2015 09:38:34 -0000	1.3.12.1
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.xql	9 Dec 2016 09:15:27 -0000	1.3.12.2
@@ -39,28 +39,10 @@
 <fullquery name="email_image::update_private_p.update_users">
   <querytext>
         update users
-        set priv_email  = :level
+        set priv_email = :level
         where user_id = :user_id
   </querytext>
 </fullquery>
-
-
-
-<fullquery name="email_image::new_item.update_cr_items_new">
-  <querytext>
-        update cr_items
-        set live_revision  = :revision_id
-        where item_id = :item_id
-  </querytext>
-</fullquery>
-
-<fullquery name="email_image::edit_email_image.update_cr_items">
-  <querytext>
-        update cr_items
-        set live_revision  = :revision_id
-        where item_id = :item_id
-  </querytext>
-</fullquery>
   
 </queryset>