Index: openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	14 Feb 2005 21:08:06 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	19 Mar 2006 02:25:50 -0000	1.8
@@ -70,7 +70,10 @@
     # message out through an SMTP socket, but we're not doing that so we
     # have to hijack the process a bit.
     set mime_body [mime::buildmessage $multi_part]
-
+    # mime-encode the periods at the beginning of a line in the
+    # message text or they are lost. Most noticable when the line
+    # is broken within a URL
+    regsub {^\.} $mime_body {=2E} mime_body
     # the first three lines of the message are special; we need to grab
     # the info, add it to the message headers, and discard the lines
     set lines [split $mime_body \n]