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.30 -r1.108.2.31
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	29 Nov 2022 18:34:55 -0000	1.108.2.30
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	2 Oct 2023 10:06:22 -0000	1.108.2.31
@@ -53,7 +53,7 @@
     } {
         Extracts the email address out of a mail address
         (like Joe User <joe@user.com>)
-        
+
         @option email mail address to be parsed
         @return only the email address part of the mail address
     } {
@@ -436,6 +436,16 @@
         }
     }
 
+    ad_proc -private encode_email_address {email} {
+        set d [lindex [::mime::parseaddress $email] 0]
+        dict with d {
+            if {$phrase ne "" && ![string is ascii -strict $phrase]} {
+                set email "[mime::word_encode utf-8 quoted-printable $phrase] <$address>"
+            }
+        }
+        return $email
+    }
+
     #---------------------------------------
     ad_proc -private send_immediately {
         {-valid_email_p "0"}
@@ -527,6 +537,9 @@
             set from_addr $fixed_sender
         }
 
+        set from_addr [encode_email_address $from_addr]
+        set to_addr [lmap email $to_addr {encode_email_address $email}]
+
         # Set the Reply-To
         if {$reply_to eq ""} {
             set reply_to $from_addr