Index: openacs-4/packages/contacts/lib/email-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email-search.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/contacts/lib/email-search.tcl 5 Apr 2018 14:44:08 -0000 1.6 +++ openacs-4/packages/contacts/lib/email-search.tcl 17 Apr 2018 14:47:02 -0000 1.7 @@ -326,23 +326,23 @@ util_user_message -html -message $error_message } } - + # We get the attribute_id of the salutation attribute set attribute_id [attribute::id -object_type "person" -attribute_name "salutation"] - - # List to store know wich emails received the message + + # List to store know which emails received the message set recipients_addr [list] - + set from [ad_conn user_id] set from_addr [contact::email -party_id $from] - + # Remove all spaces in cc and bcc regsub -all " " $cc "" cc regsub -all " " $bcc "" bcc - + set cc_list [split $cc ";"] set bcc_list [split $bcc ";"] - + # Send the mail to all parties. set member_size [llength $party_ids] set counter 1