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.48 -r1.49
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	28 May 2006 07:14:51 -0000	1.48
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	1 Jun 2006 13:04:50 -0000	1.49
@@ -1295,17 +1295,17 @@
 
 		# Append the entries from the system users to the e-mail
 		foreach party $to_party_ids {
-		    lappend to_list "[party::name -party_id $party] <[party::email -party_id $party]>"
+		    lappend to_list "\"[party::name -party_id $party]\" <[party::email -party_id $party]>"
 		}
 		
 		foreach party $cc_party_ids {
-		    lappend cc_list "[party::name -party_id $party] <[party::email -party_id $party]>"
+		    lappend cc_list "\"[party::name -party_id $party]\" <[party::email -party_id $party]>"
 		}
 		
 		foreach party $bcc_party_ids {
-		    lappend bcc_list "[party::name -party_id $party] <[party::email -party_id $party]>"
+		    lappend bcc_list "\"[party::name -party_id $party]\" <[party::email -party_id $party]>"
 		}
-		
+
 		smtp::sendmessage $multi_token \
 		    -header [list From "$from_string"] \
 		    -header [list To "[join $to_list ","]"] \
@@ -1374,7 +1374,7 @@
 		set recipient_list [concat $to_party_ids $cc_party_ids $bcc_party_ids]
 		foreach party $recipient_list {
 		    set message_id [mime::uniqueID]
-		    set email "[party::name -party_id $party] <[party::email -party_id $party]>"
+		    set email "\"[party::name -party_id $party]\" <[party::email -party_id $party]>"
 
 		    smtp::sendmessage $multi_token \
 			-header [list From "$from_string"] \