--- mlist2html-2000	Thu Jan  3 22:00:30 2002
+++ mlist2html	Thu Jan  3 22:18:22 2002
@@ -72,32 +72,19 @@
 open(TMP,"> /tmp/tmp_$$");
 
 while (<STDIN>) {	
-	
 	if (/^$/) {
-		if ($in_header) {
-	        	print TMP "$from" ;
-			print TMP "$date" ;	
-			print TMP "$subject" ;
-			print TMP "$messageid" ;
-			print TMP "$references" ;
-			print TMP "$content" ;
-			print TMP "$xsequence";
-			}
 		$in_header = 0;
         	}		
-
-	if (/^From:/ && $in_header){ $from = $_ ;}
+	if ($in_header) {
+#	if (/^From:/ && $in_header){ $from = $_ ;}
 	if (/^Date:/ && $in_header){	$date = $_ ;}
-	if (/^Subject:/ && $in_header) {$subject = $_ ; }
-	if (/^Message-id:/i && $in_header){$messageid = $_ ;}
-	if (/^References:/ && $in_header){$references = $_ ;}
-	if (/^Content-Type:/ && $in_header){$content = $_ ;}
-	if (/^X-Sequence:/ && $in_header){$xsequence = $_ ;}
-
-	if (! $in_header){
+#	if (/^Subject:/ && $in_header) {$subject = $_ ; }
+#	if (/^Message-id:/i && $in_header){$messageid = $_ ;}
+#	if (/^References:/ && $in_header){$references = $_ ;}
+#	if (/^Content-Type:/ && $in_header){$content = $_ ;}
+#	if (/^X-Sequence:/ && $in_header){$xsequence = $_ ;}
+	}
 		print TMP "$_" ;
-		}
-
 	}
 
 close(TMP);