diff --git a/lib/WebGUI/Mail.pm b/lib/WebGUI/Mail.pm
index 820f44ed4..a29d2490d 100644
--- a/lib/WebGUI/Mail.pm
+++ b/lib/WebGUI/Mail.pm
@@ -75,7 +75,7 @@ The email address for the BCC line.
 =cut
 
 sub send {
-	my ($smtp, $message, $from, $footer);
+	my ($smtp, $message, $from);
 	foreach my $option (\$_[0], \$_[1], \$_[3], \$_[4], \$_[5]) {
 		if(${$option}) {
 			if (${$option} =~ /(?:From|To|Date|X-Mailer|Subject|Received|Message-Id)\s*:/is) {