--- loncom/interface/lonmsg.pm	2004/01/15 15:12:31	1.79
+++ loncom/interface/lonmsg.pm	2004/01/15 18:25:36	1.80
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.79 2004/01/15 15:12:31 www Exp $
+# $Id: lonmsg.pm,v 1.80 2004/01/15 18:25:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -274,18 +274,13 @@ sub author_res_msg {
 sub retrieve_author_res_msg {
     my $url=shift;
     $url=&Apache::lonnet::declutter($url);
-    my ($domain,$author,$file)=($url=~/^(\w+)\/(\w+)\/(.+)$/);
-    my $listall=($file eq 'allbombs');
+    my ($domain,$author)=($url=~/^(\w+)\/(\w+)\//);
     my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);
     my $msgs='';
     foreach (keys %errormsgs) {
-	if (($_=~/^\Q$url\E\_\d+$/) || ($listall)) {
-	    my ($errurl)=($_=~/^(.+)\_(\d+)$/);
+	if ($_=~/^\Q$url\E\_\d+$/) {
 	    my %content=&unpackagemsg($errormsgs{$_});
 	    $msgs.='<p><img src="/adm/lonMisc/bomb.gif" /><b>'.
-		($listall?"<a href='".&Apache::lonnet::clutter($errurl)."'><tt>".
-		 $errurl.
-		 '</tt></a> ':' ').
 		$content{'time'}.'</b>: '.$content{'message'}.
 		'<br /></p>';
 	}