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.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	17 May 2003 09:53:28 -0000	1.5
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	2 Sep 2003 07:55:29 -0000	1.6
@@ -26,6 +26,9 @@
             set eh_list ""
         }
 
+        # Subject cannot contain newlines -- replace with spaces
+        regsub -all {\n} $subject { } subject
+
         # Subject can not be longer than 200 characters
         if { [string length $subject] > 200 } {
             set subject "[string range $subject 0 196]..."