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