Index: openacs-4/packages/contacts/tcl/contact-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-message-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/contacts/tcl/contact-message-procs.tcl	5 Mar 2006 08:34:12 -0000	1.27
+++ openacs-4/packages/contacts/tcl/contact-message-procs.tcl	22 Mar 2006 13:20:29 -0000	1.28
@@ -325,6 +325,8 @@
     regsub -all -nocase "<p>" $content "<text:line-break/>" content
     regsub -all -nocase "&nbsp;" $content " " content
     regsub -all -nocase "</p>" $content "<text:line-break/>" content
+    regsub -all -nocase "a href=" $content "text:a xlink:type=\"simple\" xlink:href=" content
+    regsub -all -nocase "/a" $content "/text:a" content
     return [string trim $content]
 }