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.89 -r1.90
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	29 Mar 2011 09:53:13 -0000	1.89
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	4 May 2011 10:27:40 -0000	1.90
@@ -441,8 +441,8 @@
 
         # Set the subject
         if { $subject ne "" } {
-            set subject [acs_mail_lite::utils::build_subject $subject]
-            mime::setheader $tokens Subject $subject
+            set encoded_subject [acs_mail_lite::utils::build_subject $subject]
+            mime::setheader $tokens Subject $encoded_subject
         }
 
         # Add extra headers