Index: openacs-4/contrib/packages/mailing-lists/tcl/mailing-lists-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/tcl/mailing-lists-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/mailing-lists/tcl/mailing-lists-procs.tcl	1 Oct 2003 05:01:54 -0000	1.1
+++ openacs-4/contrib/packages/mailing-lists/tcl/mailing-lists-procs.tcl	21 Jan 2004 19:22:14 -0000	1.2
@@ -115,10 +115,13 @@
 	set reminders [db_list_of_lists get_unconfirmed_subscriptions {}]
 
 	# send reminder
+	ad_conn -set package_key mailing-lists
 	foreach reminder $reminders {
-	    util_unlist $reminder user_id sender_email remind_subject remind_body remind_mime_type mime_charset list_id node_id
-	    set confirmation_link "[ad_url][site_node::get_url -node_id $node_id]confirm?[export_url_vars list_id]"
+	    util_unlist $reminder user_id sender_email remind_subject remind_body remind_mime_type mime_charset list_id node_id package_id
 
+	    ad_conn -set package_id $package_id
+	    set confirmation_link "[ad_url][site_node::get_url -node_id $node_id]confirm?[export_url_vars list_id user_id]"
+
 	    mailing_list::util::send_mail -user_id $user_id -from_email $sender_email -subject $remind_subject -body $remind_body -mime_type $remind_mime_type -charset $mime_charset -link $confirmation_link
 
 	    ns_log Notice "List subscription reminder sent to user $user_id"