Something

import time

from ldtp import *
from evoutils.mail import *

# Section to delete a mail
def deleteMail (sourcefldr, mailindex):
	try:
		selectrowpartialmatch ('frm*Evolution', 'ttblMailFolderTree', sourcefldr)
		waittillguiexist ('frm*Evolution-'+sourcefldr+'*')
		rowcount = getrowcount('frmEvolution-*', 'ttblMessages') 
		if rowcount > 0:
			if mailindex == -1:
				mailindex = rowcount-1
			selectrowindex ('frm*Evolution', 'ttblMessages', mailindex)
			selectmenuitem ('frm*Evolution', 'mnuEdit;mnuDeleteMessage')
			selectrowpartialmatch ('frm*Evolution', 'ttblMailFolderTree', sourcefldr)
			waittillguiexist ('frm*Evolution-'+sourcefldr+'*')
			rowafter = getrowcount('frm*Evolution','ttblMessages')
			if rowafter == (rowcount-1):
				log ('Deleting a mail passed successfully', 'info') 
				return 1
			else:
				log ('Row count does not match after delete mail', 'cause')
				log ('Deleting a mail failed', 'info')
				return 0
		else:
			log ('From folder empty!', 'Warning')
			log ('Did not Delete any mail from source folder', 'info')
			return 0
	except ldtp.error,msg:
		log ('Deleting mail failed' + str(msg), 'cause')
		log ('delete mail failed', 'fail')
		raise LdtpExecutionError (0)
			
# Read input from file
data_object = LdtpDataFileParser (datafilename)
sourcefldr = data_object.gettagvalue ('sourcefldr')
mailindex = data_object.gettagvalue ('mailindex')

# Call the function
try:
	log ('Delete a message', 'teststart')
	result = deleteMail (sourcefldr[0], int (mailindex[0]))
        if result == 1:
                log ('Delete a message', 'pass')
        else:
                log ('Delete a message', 'fail')
        log ('Delete a message', 'testend')

except:
        log ('Delete a message', 'error')
        log ('Delete a message', 'testend')
        raise LdtpExecutionError(0)