--- loncom/xml/lontexconvert.pm	2004/01/28 17:16:27	1.29
+++ loncom/xml/lontexconvert.pm	2004/01/28 20:48:35	1.30
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.29 2004/01/28 17:16:27 albertel Exp $
+# $Id: lontexconvert.pm,v 1.30 2004/01/28 20:48:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,9 +68,6 @@ sub init_tth {
 	    &tth::tthoptions('-L -u0 '.$options);
 	}
     }
-    &Apache::lonnet::logthis("caled and use $options");
-    &Apache::lonnet::logthis("caller ".join(':',caller(0)));
-
 }
 
 sub header {
@@ -139,7 +136,7 @@ sub footer {
 sub to_convert {
     my ($string) = @_;
     $string=~s/\<br\s*\/?\>/ /gs;
-    $string=~s/\s/ /gs;
+#    $string=~s/\s/ /gs;
     $string=&HTML::Entities::decode($string);
     return &converted(\$string);
 }
@@ -170,14 +167,18 @@ sub smiley {
 
 sub msgtexconverted {
     my $message=shift;
-
+    my $email=shift;
     $errorstring='';
     &init_tth();
     my $outmessage='';
     my $tex=0;
     foreach (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) {
 	if ($tex) {
-	    $outmessage.=&to_convert($_); $tex=0;
+	    if ($email) {
+		$outmessage.='</pre><tt>'.&to_convert($_).'</tt><pre>'; $tex=0;
+	    } else {
+		$outmessage.=&to_convert($_); $tex=0;
+	    }
 	} else {
             $outmessage.=&smiley($_); $tex=1;
 	}