
#import <misckit/misckit.h>
#import "EMErrorManager.h"
#import "ErrorMail.h"

@implementation EMErrorAction(MiscMail)

- sendMailTo:(const char *)recipient subject:(const char *)subject 
		body:(const char *)body;
	{
	MiscMailApp	*mail;
	MiscString	*r,*s,*b;
	MiscTime	*now;

	EM_DURING
		now=[[MiscTime allocFromZone:[self zone]] initWithCurrentTime];
		if([now year]==1998 && [now month]<8)
			{
			mail=[MiscMailApp localMailer];
			EM_CONDERROR(mail==nil,EM_INTBASE+23,recipient,NULL);
			r=[MiscString newWithString:recipient],
			s=[MiscString newWithString:subject],
			b=[MiscString newWithString:body];
			[mail sendMailTo:r subject:s body:b];
			[r free];
			[s free];
			[b free];
			}
	EM_HANDLER
		[now free];
		NX_RERAISE();
	EM_ENDHANDLER
	
	now=[now free];
	return self;	
	}		

@end
