--- loncom/interface/lonmsg.pm 2005/05/20 17:00:40 1.143 +++ loncom/interface/lonmsg.pm 2005/06/07 18:19:32 1.151 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.143 2005/05/20 17:00:40 albertel Exp $ +# $Id: lonmsg.pm,v 1.151 2005/06/07 18:19:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -596,6 +596,9 @@ sub statuschange { if (($newstatus eq 'deleted') || ($newstatus eq 'new')) { &Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus}); } + if ($newstatus eq 'deleted') { + &movemsg(&Apache::lonnet::unescape($msgid),$folder,'trash'); + } } # ============================================================= Make new folder @@ -1173,7 +1176,7 @@ ENDREC