patch-src::EvalTests-3.1.0.patch by Victor Ustugov <victor+spamassassin@corvax.kiev.ua>

diff -urN lib.orig/Mail/SpamAssassin/Plugin/FromRealName.pm lib/Mail/SpamAssassin/Plugin/FromRealName.pm
--- lib.orig/Mail/SpamAssassin/Plugin/FromRealName.pm	1970-01-01 03:00:00.000000000 +0300
+++ lib/Mail/SpamAssassin/Plugin/FromRealName.pm	2005-09-18 17:02:20.000000000 +0300
@@ -0,0 +1,90 @@
+=head1 NAME
+
+Mail::SpamAssassin::Plugin::FromRealName - check real name in header From
+
+=head1 SYNOPSIS
+
+  loadplugin     Mail::SpamAssassin::Plugin::FromRealName
+
+  header		__FROM_UNDERSCORED     	eval:check_underscored_From()
+  header		__FROM_DOTTED     	eval:check_dotted_From()
+  header		__FROM_MINUS     	eval:check_minus_From()
+
+=head1 DESCRIPTION
+
+
+=cut
+
+package Mail::SpamAssassin::Plugin::FromRealName;
+
+use Mail::SpamAssassin::Plugin;
+use Mail::SpamAssassin::Logger;
+use Fcntl;
+use strict;
+use warnings;
+use bytes;
+
+use vars qw(@ISA);
+@ISA = qw(Mail::SpamAssassin::Plugin);
+
+sub new {
+  my $class = shift;
+  my $mailsaobject = shift;
+
+  $class = ref($class) || $class;
+  my $self = $class->SUPER::new($mailsaobject);
+  bless ($self, $class);
+
+  $self->register_eval_rule("check_underscored_From");
+  $self->register_eval_rule("check_dotted_From");
+  $self->register_eval_rule("check_minus_From");
+
+  return $self;
+}
+
+sub check_underscored_From {
+  my ($self, $permsgstatus) = @_;
+  local ($_);
+  $_ = $permsgstatus->get('From');
+  if (/^(\s*\S+)(\s*<.+>)/) {
+    my $realname = $1;
+    my $addr = $2;
+    $realname =~ s/_//g;
+    $addr = $realname.$addr;
+    return($addr =~ /^\s*(\S+)\s*<\1\@.+>/i ? 1 : 0);
+  } else {
+    return 0;
+  }
+}
+
+sub check_dotted_From {
+  my ($self, $permsgstatus) = @_;
+  local ($_);
+  $_ = $permsgstatus->get('From');
+  if (/^(\s*\S+)(\s*<.+>)/) {
+    my $realname = $1;
+    my $addr = $2;
+    $realname =~ s/\.//g;
+    $addr = $realname.$addr;
+    return($addr =~ /^\s*"?(\S+)"?\s*<\1\@.+>/i ? 1 : 0);
+  } else {
+    return 0;
+  }
+}
+
+sub check_minus_From {
+  my ($self, $permsgstatus) = @_;
+  local ($_);
+  $_ = $permsgstatus->get('From');
+  if (/^(\s*\S+)(\s*<.+>)/) {
+    my $realname = $1;
+    my $addr = $2;
+    $realname =~ s/\-//g;
+    $addr = $realname.$addr;
+    return($addr =~ /^\s*"?(\S+)"?\s*<\1\@.+>/i ? 1 : 0);
+  } else {
+    return 0;
+  }
+}
+
+1;
diff -urN rules.orig/v310.pre rules/v310.pre
--- rules.orig/v310.pre	2005-08-12 03:38:50.000000000 +0300
+++ rules/v310.pre	2005-09-18 17:52:58.000000000 +0300
@@ -76,3 +76,7 @@
 #
 loadplugin Mail::SpamAssassin::Plugin::ReplaceTags
 
+###########################################################################
+# userdefined plugins
+
+loadplugin Mail::SpamAssassin::Plugin::FromRealName