--- loncom/interface/lonmsg.pm	2003/08/17 19:13:32	1.63
+++ loncom/interface/lonmsg.pm	2003/08/18 17:37:42	1.64
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.63 2003/08/17 19:13:32 albertel Exp $
+# $Id: lonmsg.pm,v 1.64 2003/08/18 17:37:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -677,7 +677,7 @@ ENDDISHEADER
     foreach (@messages) {
 	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
-	my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status);
+	my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$_);
 	push @temp ,\@temp1;
     }
     #default sort
@@ -713,7 +713,7 @@ ENDDISHEADER
         @temp = sort  {$b->[4] cmp $a->[4]} @temp;
     }
     foreach (@temp){
-	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= @$_;
+	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @$_;
 	if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
 	    if ($status eq 'new') {
 		$r->print('<tr bgcolor="#FFBB77">');
@@ -724,9 +724,9 @@ ENDDISHEADER
 	    } else {
 		$r->print('<tr bgcolor="#99BBBB">');
 	    }
-	    $r->print('<td><a href="/adm/email?display='.$_.
-		      '">Open</a></td><td><a href="/adm/email?markdel='.$_.
-		      '">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'.
+	    $r->print('<td><a href="/adm/email?display='.$origID. 
+		      '">Open</a></td><td><a href="/adm/email?markdel='.$origID.
+		      '">Delete</a><input type=checkbox name="delmark_'.$origID.'"></td>'.
 		      '<td>'.localtime($sendtime).'</td><td>'.
 		      $fromname.'</td><td>'.$fromdomain.'</td><td>'.
 		      &Apache::lonnet::unescape($shortsubj).'</td><td>'.