Index: openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/complex-send-procs.tcl,v diff -u -r1.19 -r1.20 --- openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl 6 Dec 2007 18:26:46 -0000 1.19 +++ openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl 10 Dec 2007 13:13:04 -0000 1.20 @@ -417,14 +417,14 @@ ################### - if {$single_email_p} { - - ############################# - # - # One mail to all - # - ############################# - + if { $single_email_p } { + + ############################# + # + # One mail to all + # + ############################# + # Resolve the various types into two lists # so we have the emails in one and the # party_ids in the other (needed for the callback) @@ -444,8 +444,8 @@ # Send out the E-Mail acs_mail_lite::complex_smtp -multi_token $multi_token \ -headers [list [list From "$from_string"] [list Reply-To "$reply_to_string"] \ - [list To "$to_addr_string ","]"] [list CC "[join $cc_addr_string ","]"] \ - [list BCC "[join $bcc_addr_string ","]"]] + [list To "[join $to_addr_string ","]"] [list CC "[join $cc_addr_string ","]"] \ + [list BCC "[join $bcc_addr_string ","]"]] #Close all mime tokens mime::finalize $multi_token -subordinates all