sub deleteMsg {

my $srcmbx    = shift;
my $msgnum = shift;
my $src   = shift;
my $rc;

   sendCommand ( $src, "1 STORE $msgnum +FLAGS (\\Deleted)");
   while (1) {
        readResponse ($src);
        print "$response";
        if ( $response =~ /^1 OK/i ) {
	   $rc = 1;
	   Log("       Marked msg number $msgnum for delete");
	   last;
	}

	if ( $response =~ /^1 BAD|^1 NO/i ) {
	   Log("Error setting \Deleted flag for msg $msgnum: $response");
	   $rc = 0;
	   last;
	}
   }

   return $rc;

}