--- loncom/interface/loncommunicate.pm	2001/12/19 17:17:46	1.7
+++ loncom/interface/loncommunicate.pm	2002/02/05 00:01:32	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.7 2001/12/19 17:17:46 albertel Exp $
+# $Id: loncommunicate.pm,v 1.8 2002/02/05 00:01:32 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,7 +79,10 @@ ENDDOCUMENT
 <table border=2><tr><th>&nbsp</th>
 <th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>
 ENDTABLE
-    map {
+    foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
+					$ENV{'user.domain'}.':'.
+                                        $ENV{'user.name'}.':nohist_email',
+					$ENV{'user.home'}))) {
         my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
         if ($status eq 'new') {
@@ -89,10 +92,7 @@ ENDTABLE
                   $fromname.'</td><td>'.$fromdomain.'</td><td>'.
 		      &Apache::lonnet::unescape($shortsubj).'</td></tr>');
         }
-    } sort split(/\&/,&Apache::lonnet::reply('keys:'.
-					$ENV{'user.domain'}.':'.
-                                        $ENV{'user.name'}.':nohist_email',
-                                        $ENV{'user.home'}));
+    }
     $r->print('</table></body></html>');
     return OK;
 }