Index: openacs-4/packages/spam/www/admin/spam-edit-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/admin/spam-edit-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/spam/www/admin/spam-edit-postgresql.xql	4 Sep 2001 21:14:59 -0000	1.1
+++ openacs-4/packages/spam/www/admin/spam-edit-postgresql.xql	28 Mar 2002 22:54:41 -0000	1.2
@@ -43,5 +43,15 @@
 </fullquery>
 
 
+<fullquery name="spam_get_text">      
+      <querytext>
+      
+	select content, mime_type
+	  from cr_revisions
+	where revision_id = content_item__get_live_revision(:content_item_id)
+    
+      </querytext>
+</fullquery>
  
+
 </queryset>
Index: openacs-4/packages/spam/www/admin/spam-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/admin/spam-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/spam/www/admin/spam-edit.tcl	4 Sep 2001 21:14:59 -0000	1.2
+++ openacs-4/packages/spam/www/admin/spam-edit.tcl	28 Mar 2002 22:54:41 -0000	1.3
@@ -60,8 +60,8 @@
 } else {
     db_1row spam_get_text {
 	select content, mime_type
-	  from acs_contents
-	where content_id = :content_object_id
+	  from cr_revisions
+	where revision_id = content_item.get_live_revision(:content_item_id)
     }
     if {$mime_type == "text/plain"} {
 	set plain_text $content