diff --git a/en/cgi/getmsg.cgi b/en/cgi/getmsg.cgi
index 3347998292..311fb68def 100755
--- a/en/cgi/getmsg.cgi
+++ b/en/cgi/getmsg.cgi
@@ -6,7 +6,7 @@
 # by John Fieber
 # February 26, 1998
 #
-# $Id: getmsg.cgi,v 1.18 1998-12-28 00:16:31 wosch Exp $
+# $Id: getmsg.cgi,v 1.19 1998-12-28 01:24:55 wosch Exp $
 #
 
 require "./cgi-lib.pl";
@@ -190,6 +190,9 @@ sub MessageToHTML
 	$message .= qq{| <a href="$mid?db=mid&id=$1">Previous in thread</a>\n};
     }
     $message .= qq{| <a href="$ENV{'REQUEST_URI'}+raw">Raw E-Mail</a>\n};
+    if ($file = /(^current|^$messagepath)\//o) {
+	$message .= qq{| <a href="/mail/$file">Index</a>\n};
+    }
     $message .= qq{| <a href="$ENV{'REQUEST_URI'}+archive">Archive</a>\n};
     $message .= qq{| <a href="../search/searchhints.html">Help</a>\n};