--- loncom/interface/lonmsg.pm	2001/11/05 19:44:23	1.24
+++ loncom/interface/lonmsg.pm	2001/11/05 21:01:54	1.25
@@ -330,7 +330,8 @@ ENDREPLY
 
 sub disall {
     my $r=shift;
-    $r->print('<h1>Display All Messages</h1>'.
+    $r->print(
+     '<h1>Display All Messages</h1><form method=post action="/adm/email">'.
      '<table border=2><tr><th colspan=2>&nbsp</th><th>Date</th>'.
      '<th>Username</th><th>Domain</th><th>Subject</th><th>Status</th></tr>');
     map {
@@ -348,7 +349,8 @@ sub disall {
         }
         $r->print('<td><a href="/adm/email?display='.$_.
                   '">Open</a></td><td><a href="/adm/email?markdel='.$_.
-                  '">Delete</a></td><td>'.localtime($sendtime).'</td><td>'.
+                '">Delete</a><input type=checkbox name="delmark_'.$_.'"></td>'.
+                  '<td>'.localtime($sendtime).'</td><td>'.
                   $fromname.'</td><td>'.$fromdomain.'</td><td>'.
 		      &Apache::lonnet::unescape($shortsubj).'</td><td>'.
                       $status.'</td></tr>');
@@ -357,7 +359,9 @@ sub disall {
 					$ENV{'user.domain'}.':'.
                                         $ENV{'user.name'}.':nohist_email',
                                         $ENV{'user.home'}));
-    $r->print('</table></body></html>');
+    $r->print('</table><p>'.
+              '<input type=submit name="markeddel" value="Delete Checked">'.
+              '</form></body></html>');
 }
 
 # ============================================================== Compose output
@@ -539,6 +543,16 @@ sub handler {
   } elsif ($ENV{'form.markdel'}) {
       &statuschange($ENV{'form.markdel'},'deleted');
       &disall($r);
+  } elsif ($ENV{'form.markeddel'}) {
+      my $total=0;
+      map {
+          if ($_=~/^form\.delmark_(.*)$/) {
+	      &statuschange(&Apache::lonnet::unescape($1),'deleted');
+              $total++;
+          }
+      } keys %ENV;
+      $r->print('Deleted '.$total.' message(s)<p>');
+      &disall($r);
   } elsif ($ENV{'form.markunread'}) {
       &statuschange($ENV{'form.markunread'},'new');
       &disall($r);