Index: openacs-4/contrib/packages/mailing-lists/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/index.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/mailing-lists/www/index.xql	1 Oct 2003 05:01:54 -0000	1.1
+++ openacs-4/contrib/packages/mailing-lists/www/index.xql	21 Jan 2004 19:22:15 -0000	1.2
@@ -10,5 +10,16 @@
       </querytext>
 </fullquery>
 
+
+<fullquery name="check_email_verified_p">
+      <querytext>
+      
+    select email_verified_p
+    from users
+    where user_id = :user_id
+
+      </querytext>
+</fullquery>
+
  
 </queryset>