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.108.2.9 -r1.108.2.10
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	3 Jul 2020 07:53:44 -0000	1.108.2.9
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	1 Sep 2020 14:26:27 -0000	1.108.2.10
@@ -243,7 +243,14 @@
             # now get the user_names and user_ids
             foreach email $address_list {
                 set email [string tolower $email]
-                if {[db_0or1row get_user_name_and_id ""]} {
+                if {[db_0or1row get_user_name_and_id {
+                    select person_id as user_id, first_names || ' ' || last_name as user_name
+                    from parties, persons
+                    where email = :email
+                      and party_id = person_id
+                     order by party_id desc
+                    fetch first 1 rows only
+                }]} {
                     lappend address_array(email) $email
                     lappend address_array(name) $user_name
                     lappend address_array(user_id) $user_id