Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	11 Jun 2004 21:47:15 -0000	1.14
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	11 Jun 2004 22:33:33 -0000	1.15
@@ -441,14 +441,15 @@
         # proc to ns_sendmail. So we simply call ns_sendmail instead
         # of the sendmail bin if the EmailDeliveryMode parameter is
         # set - JFR
-        # 
-        # I'm a little unsure if this handles multiple to addresses
-        # correctly.
         #-----------------------------------------------------
         set delivery_mode [ns_config ns/server/[ns_info server]/acs/acs-rollout-support EmailDeliveryMode] 
 
         if {![empty_string_p $delivery_mode]} {
-            ns_sendmail "$to_addr" "$from_addr" "$subject" "$body" "$extraheaders" "$bcc"
+            # The to_addr has been put in an array, and returned. Now
+            # it is of the form: email email_address name namefromdb
+            # user_id user_id_if_present_or_empty_string
+            set to_address "[lindex $to_addr 1] ([lindex $to_addr 3])"
+            ns_sendmail "$to_address" "$from_addr" "$subject" "$body" "$extraheaders" "$bcc"
         } else {
 
             if { [string equal [bounce_sendmail] "SMTP"] } {