--- loncom/interface/lonmsg.pm 2004/07/15 21:08:45 1.104
+++ loncom/interface/lonmsg.pm 2004/09/09 08:00:12 1.105
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.104 2004/07/15 21:08:45 matthew Exp $
+# $Id: lonmsg.pm,v 1.105 2004/09/09 08:00:12 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -861,8 +861,8 @@ sub compout {
if ($replying) {
%message=&Apache::lonnet::get('nohist_email',[$replying]);
%content=&unpackagemsg($message{$replying});
- $dispcrit.='';
+ $dispcrit.='';
$func=&mt('Replying to');
$dissub=&mt('Reply').': '.$content{'subject'};
@@ -1654,6 +1654,12 @@ sub handler {
$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".
$content{'message'};
}
+ if ($ENV{'form.replyid'}) {
+ my $msgid=$ENV{'form.replyid'};
+ my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
+ %content=&unpackagemsg($message{$msgid},1);
+ &statuschange($msgid,'replied');
+ }
my %toaddr=();
undef %toaddr;
if ($ENV{'form.sendmode'} eq 'group') {