--- a/branches/2.5.4RC1/cgi-bin/yabb2/Sources/Subs.pm
+++ b/branches/2.5.4RC1/cgi-bin/yabb2/Sources/Subs.pm
@@ -19,7 +19,7 @@
 use English qw(-no_match_vars);
 our $VERSION = '2.5.41';
 
-$subspmver = 'YaBB 2.5.4 RC1 $Revision: 1353 $';
+$subspmver = 'YaBB 2.5.4 RC1 $Revision: 1386 $';
 
 if ($debug) { LoadLanguage('Debug'); }
 
@@ -1663,7 +1663,7 @@
 }
 
 sub enc_eMail {
-    my ($title,$email,$subject,$body) = @_;
+    my ($title,$email,$subject,$body,$src) = @_;
     my ($charset_value);
     if ($yycharset eq 'windows-1251') { $charset_value = 848;} # Cyrillic decoding
 
@@ -1696,9 +1696,11 @@
     }
 
     $title =~ s/(((<.+?>)|&#\d+;)|.)/ enc_eMail_x($1,$2,$3) /egsm;
-
-    return
-qq~<script type='text/javascript'>\nSpamInator("$title","$code1","$code2","&#109;&#97;&#105;&#108;&#92;&#117;&#48;&#48;&#55;&#52;&#111;&#92;&#117;&#48;&#48;&#51;&#97;","$subbody");\n</script><noscript>$maintxt{'noscript'}</noscript>~;
+    my $eback = 'SpamInator';
+    if ($src) { $eback = 'SpamInator2';}
+
+    return qq~<script type='text/javascript'>\n$eback("$title","$code1","$code2","&#109;&#97;&#105;&#108;&#92;&#117;&#48;&#48;&#55;&#52;&#111;&#92;&#117;&#48;&#48;&#51;&#97;","$subbody");\n</script><noscript>$maintxt{'noscript'}</noscript>~;
+
 }
 
 sub generate_code {