--- loncom/lonnet/perl/lonnet.pm	2005/10/04 17:28:08	1.659
+++ loncom/lonnet/perl/lonnet.pm	2005/10/10 17:57:22	1.660
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.659 2005/10/04 17:28:08 albertel Exp $
+# $Id: lonnet.pm,v 1.660 2005/10/10 17:57:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1815,7 +1815,7 @@ sub courseiddump {
 sub dcmaildump {
     my ($dom,$startdate,$enddate,$senders) = @_;
     my %returnhash=(); 
-    foreach my $tryserver (keys %libserv) {
+    foreach my $tryserver (keys(%libserv)) {
         if ($hostdom{$tryserver} eq $dom) {
             %{$returnhash{$tryserver}}=();
             foreach (
@@ -1824,7 +1824,7 @@ sub dcmaildump {
                    &escape($senders), ,$tryserver))) {
                 my($key,$value) = split(/\=/,$_);
                 if (($key) && ($value)) {
-                    $returnhash{$tryserver}{$key} = $value;
+                    $returnhash{$tryserver}{&unescape($key)} = &unescape($value);
                 }
             }
         }