--- loncom/interface/lonmsg.pm	2007/04/22 02:25:36	1.199
+++ loncom/interface/lonmsg.pm	2007/04/22 13:41:22	1.200
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.199 2007/04/22 02:25:36 raeburn Exp $
+# $Id: lonmsg.pm,v 1.200 2007/04/22 13:41:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -581,12 +581,16 @@ sub user_normal_msg_raw {
        &Apache::lonnet::put
                          ('email_status',{'recnewemail'=>time},$domain,$user);
 # Into sent-mail folder unless a broadcast message or critical message
-       unless (($env{'request.course.id'}) && 
-               (($env{'form.sendmode'} eq 'group')  || 
-               (($env{'form.critmsg'}) || ($env{'form.sendbck'})) &&
-		(&Apache::lonnet::allowed('srm',$env{'request.course.id'})
-		 || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
-					     '/'.$env{'request.course.sec'})))) {
+       unless (($env{'request.course.id'}) &&
+               (($env{'form.courserecord'}) &&
+                (&Apache::lonnet::allowed('dff',$env{'request.course.id'})
+                 || &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
+                  '/'.$env{'request.course.sec'}))) ||
+                (($env{'form.sendmode'} eq 'group')  ||
+                (($env{'form.critmsg'}) || ($env{'form.sendbck'})) &&
+                 (&Apache::lonnet::allowed('srm',$env{'request.course.id'})
+                 || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
+                                             '/'.$env{'request.course.sec'})))) {
            (undef,my $packed_message_no_citation) =
                &packagemsg($subject,$message,undef,$baseurl,$attachmenturl,
                            $user,$domain,$currid,undef,$crsmsgid,$symb,$error);