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.10.2.5 -r1.10.2.6
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	27 Sep 2004 20:35:57 -0000	1.10.2.5
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	12 Oct 2004 20:52:37 -0000	1.10.2.6
@@ -461,7 +461,9 @@
                     if {[string match . [string trim $line]]} {
                         append data .
                     }
-                    append data "$line\r\n"
+		    #AG: ensure no \r\r\n terminations.
+		    set trimmed_line [string trimright $line \r]
+		    append data "$trimmed_line\r\n"
                 }
                 append data .