Index: openacs-4/packages/acs-authentication/acs-authentication.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/acs-authentication.info,v diff -u -N -r1.30 -r1.30.2.1 --- openacs-4/packages/acs-authentication/acs-authentication.info 13 May 2009 21:29:32 -0000 1.30 +++ openacs-4/packages/acs-authentication/acs-authentication.info 15 May 2009 12:59:23 -0000 1.30.2.1 @@ -20,6 +20,7 @@ + Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v diff -u -N -r1.81 -r1.81.2.1 --- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 8 Sep 2008 20:14:58 -0000 1.81 +++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 15 May 2009 12:59:23 -0000 1.81.2.1 @@ -1430,11 +1430,11 @@ set confirmation_url [export_vars -base "[ad_url]/register/email-confirm" { token user_id }] set system_name [ad_system_name] - ns_sendmail \ - $user(email) \ - "\"$system_name\" <[parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]]>" \ - [_ acs-subsite.lt_Welcome_to_system_nam] \ - [_ acs-subsite.lt_To_confirm_your_regis] + acs_mail_lite::send -send_immediately \ + -to_addr $user(email) \ + -from_addr "\"$system_name\" <[parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]]>" \ + -subject [_ acs-subsite.lt_Welcome_to_system_nam] \ + -body [_ acs-subsite.lt_To_confirm_your_regis] } ad_proc -private auth::validate_account_info { Index: openacs-4/packages/acs-authentication/tcl/password-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/password-procs.tcl,v diff -u -N -r1.15 -r1.15.4.1 --- openacs-4/packages/acs-authentication/tcl/password-procs.tcl 10 Jan 2007 21:22:01 -0000 1.15 +++ openacs-4/packages/acs-authentication/tcl/password-procs.tcl 15 May 2009 12:59:23 -0000 1.15.4.1 @@ -577,7 +577,11 @@ } # Send email - ns_sendmail $user(email) $system_owner $subject $body + acs_mail_lite::send -send_immediately \ + -to_addr $user(email) \ + -from_addr $system_owner \ + -subject $subject \ + -body $body } ad_proc -private auth::password::CanChangePassword { Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v diff -u -N -r1.33 -r1.33.4.1 --- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 10 Jan 2007 21:22:01 -0000 1.33 +++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 15 May 2009 12:59:23 -0000 1.33.4.1 @@ -179,11 +179,11 @@ # Only send out email if not an interactive job with_catch errmsg { - ns_sendmail \ - [ad_system_owner] \ - [ad_system_owner] \ - "Batch user synchronization for $job(authority_pretty_name) complete" \ - "Batch user synchronization for $job(authority_pretty_name) is complete. + acs_mail_lite::send -send_immediately \ + -to_addr [ad_system_owner] \ + -from_addr [ad_system_owner] \ + -subject "Batch user synchronization for $job(authority_pretty_name) complete" \ + -body "Batch user synchronization for $job(authority_pretty_name) is complete. Authority : $job(authority_pretty_name) Running time : $job(run_time_seconds) seconds