--- loncom/interface/lonmsg.pm	2005/11/29 22:41:30	1.159
+++ loncom/interface/lonmsg.pm	2005/11/29 22:55:10	1.160
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.159 2005/11/29 22:41:30 raeburn Exp $
+# $Id: lonmsg.pm,v 1.160 2005/11/29 22:55:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -142,6 +142,14 @@ sub packagemsg {
                    split(/\:/,&Apache::lonnet::unescape($env{'form.replyid'}));
         $course_context = $origcid;
     }
+    foreach my $key (keys(%env)) {
+        if ($key=~/^form\.(rep)?rec\_(.*)$/) {
+            my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$origcid) =
+                                    split(/\:/,&Apache::lonnet::unescape($2));
+            $course_context = $origcid;
+            last;
+        }
+    }
     unless(defined($course_context)) {
         $course_context = $env{'request.course.id'};
     }