Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.46 -r1.47
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	12 May 2005 11:45:18 -0000	1.46
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	4 Jun 2006 00:45:47 -0000	1.47
@@ -1342,7 +1342,7 @@
         return ""
     }
 
-    set valid_froms { text/enhanced text/plain text/fixed-width text/html }
+    set valid_froms { text/enhanced text/plain text/fixed-width text/html text/xml }
     set valid_tos { text/plain text/html }
     
     # Validate procedure input
@@ -1397,7 +1397,17 @@
 		    set text [ad_html_to_text -maxlen $maxlen -- $text]
 		}
 	    }
-	} 
+	}
+	text/xml {
+	    switch $to {
+                text/html {
+                    set text "<pre>[ad_text_to_html -no_lines -- $text]</pre>"
+		}
+                text/plain {
+		            set text [wrap_string $text $maxlen]
+		}
+	    }
+	}	 
     }
 
     # Handle closing of HTML tags, truncation