--- /c/www/build/www/en/cgi/mid.cgi	Mon Oct 31 15:25:05 2005
+++ /home/flz/public_html/mid.cgi	Wed Jan  4 14:35:46 2006
@@ -43,7 +43,7 @@
 sub escape($) { $_ = $_[0]; s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; $_; }
 
 sub get_id {
-    local($query, $db) = @_;
+    local($query, $db, $list, $raw) = @_;
 
     open(DB,  "-|") ||
 	exec("$lookCommand", $query, "$lookupdir/mid-current.$db") ||
@@ -72,6 +72,9 @@
     }
     close DB;
 
+    if ($list) {
+        @idlist = grep { /$list/ } @idlist;
+    }
 
     if ($#idlist < 0) {           # nothing found
 	print &midheader;
@@ -91,7 +94,7 @@
 	$start =~ s/\s+$//;
 
 	print "Location: $location/getmsg.cgi?fetch=$start+0+" .
-		($file =~ /^current/ ?  '' :  "$prefix/") . "$file\n";
+		($file =~ /^current/ ?  '' :  "$prefix/") . "$file$raw\n";
 	print "Content-type: text/plain\n\n";
 	exit;
 
@@ -106,7 +109,7 @@
 	    $name =~ s%(....)(..)(..)\.%$1-$2-$3 %;
 	    print qq{<li><a href="getmsg.cgi?fetch=$start+0+} .
                 ($file =~ /^current/ ? '' : "$prefix/") .
-		qq{$file">$name $start</a></li>\n};
+		qq{$file$raw">$name $start</a></li>\n};
 	}
 	print "</ul>\n<p></p>\n";
 	print &foot;
@@ -127,7 +130,14 @@
 &ReadParse(*input);
 $messageid = $input{'id'};
 $database = $input{'db'};
+$list = $input{'list'};
 
+$raw = $input{'raw'};
+if ($raw) {
+    $raw = "+raw";
+} else {
+    $raw = "";
+}
 
 if (!$messageid) {
     # for lazy people ;-)
@@ -152,4 +162,4 @@
 $database = $databaseDefault
     if (!($database eq 'mid' || $database eq 'irt'));
 
-&get_id($messageid, $database);
+&get_id($messageid, $database, $list, $raw);