+ if (defined $conf->{mail}) {
+ my $send;
+ foreach my $pickup ( @{ $conf->{mail}{pickup} } ) {
+ if ($tweets->{$id}{type} eq $pickup) {
+ $send = 1;
+ last;
+ }
+ }
+ if ($conf->{mail}{ignore_allowed}) {
+ if (defined $conf->{allow} and ! defined $skip) {
+ # this tweet was allowed to retweet, so that be ignored on mail
+ undef $send;
+ }
+ }
+
+ if ($send) {
+ if (! exists($conf->{mail}{body}) ) {
+ $conf->{mail}{body} =
+ "[localtime(date)] http://twitter.com/<screen_name>/status/<status_id> text\n" .
+ "----------------------------------------\n"
+ ;
+ }
+ $conf->{mail}{body} .=
+ "[" . localtime($tweets->{$id}{date}) . "] " .
+ "http://twitter.com/" .
+ $tweets->{$id}{screen_name} . "/status/" .
+ $tweets->{$id}{status_id} . " " .
+ $tweets->{$id}{text} . "\n"
+ ;
+ }
+ }
+