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 -N -r1.4 -r1.5 --- openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl 17 Dec 2006 20:11:55 -0000 1.4 +++ openacs-4/packages/acs-mail-lite/tcl/complex-send-procs.tcl 24 Dec 2006 11:09:52 -0000 1.5 @@ -384,9 +384,10 @@ # subject: convert 8-bit characters into MIME encoded words # see http://tools.ietf.org/html/rfc2047 - set subject_encoded [mime::word_encode "iso8859-1" base64 $subject] - regsub -all {\n} $subject_encoded {} subject_encoded - mime::setheader $multi_token Subject "$subject_encoded" + #set subject_encoded [mime::word_encode "iso8859-1" base64 $subject] + #regsub -all {\n} $subject_encoded {} subject_encoded + #mime::setheader $multi_token Subject "$subject_encoded" + mime::setheader $multi_token Subject "$subject" foreach header $extraheaders { mime::setheader $multi_token "[lindex $header 0]" "[lindex $header 1]" @@ -567,6 +568,7 @@ callback acs_mail_lite::complex_send \ -package_id $package_id \ -from_party_id [party::get_by_email -email $sender_addr] \ + -from_addr $sender_addr \ -to_party_ids $to_party_ids \ -cc_party_ids $cc_party_ids \ -bcc_party_ids $bcc_party_ids \ @@ -608,6 +610,7 @@ callback acs_mail_lite::complex_send \ -package_id $package_id \ -from_party_id $party_id($from_addr) \ + -from_addr $from_addr \ -to_addr $email \ -body $body \ -message_id $message_id \ @@ -636,6 +639,7 @@ callback acs_mail_lite::complex_send \ -package_id $package_id \ -from_party_id $party_id($from_addr) \ + -from_addr $from_addr \ -to_party_ids $party \ -body $body \ -message_id $message_id \