Index: openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-oracle.xql	1 Oct 2003 05:01:55 -0000	1.1
+++ openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-oracle.xql	18 Feb 2004 14:41:24 -0000	1.2
@@ -9,6 +9,7 @@
     select name, list_id as value
     from ml_mailing_lists
     where acs_permission.permission_p (list_id, :user_id, 'read') = 't'
+    and package_id = :package_id
     order by lower(name)
 
       </querytext>
Index: openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-postgresql.xql	1 Oct 2003 05:01:55 -0000	1.1
+++ openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribe-postgresql.xql	18 Feb 2004 14:41:24 -0000	1.2
@@ -9,8 +9,9 @@
     select name, list_id as value
     from ml_mailing_lists
     where acs_permission__permission_p (list_id, :user_id, 'read') = 't'
+    and package_id = :package_id
     order by lower(name)
-
+    
       </querytext>
 </fullquery>