--- loncom/interface/lonmsg.pm	2005/01/01 17:58:48	1.126
+++ loncom/interface/lonmsg.pm	2005/01/01 18:24:12	1.127
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.126 2005/01/01 17:58:48 www Exp $
+# $Id: lonmsg.pm,v 1.127 2005/01/01 18:24:12 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -590,7 +590,6 @@ sub makefolder {
 
 sub movemsg {
     my ($msgid,$srcfolder,$trgfolder)=@_;
-    my $unmsgid=&Apache::lonnet::unescape($msgid);
     my $srcsuffix=&foldersuffix($srcfolder);
     my $trgsuffix=&foldersuffix($trgfolder);
 
@@ -599,16 +598,16 @@ sub movemsg {
     &Apache::lonnet::put('nohist_email'.$trgsuffix,{$msgid => $message{$msgid}});
 
 # Copy status
-    my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$unmsgid]);
-    &Apache::lonnet::put('email_status'.$trgsuffix,{$unmsgid => $status{$unmsgid}});
+    my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);
+    &Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}});
 # See if was deleted -> becomes "read" in trash
-    my $currentstatus=(&unpackmsgid($status{$unmsgid}),$srcfolder);
+    my $currentstatus=(&unpackmsgid($status{$msgid}),$srcfolder);
     if ($currentstatus eq 'deleted') {
 	&statuschange($msgid,'read',$trgfolder);
     }
 # Delete orginals
     &Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);
-    &Apache::lonnet::del('email_status'.$srcsuffix,[$unmsgid]);
+    &Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]);
 }
 
 # ======================================================= Display a course list