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.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	13 Mar 2003 17:07:23 -0000	1.4.2.1
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	26 Mar 2003 18:01:35 -0000	1.4.2.2
@@ -26,7 +26,10 @@
             set eh_list ""
         }
 
-        set subject [string range $subject 0 199]
+        # Subject can not be longer than 200 characters
+        if { [string length $subject] > 200 } {
+            set subject "[string range $subject 0 196]..."
+        }
 
         db_dml create_queue_entry {}
     }