diff --git a/MOD/DBIUtils.pm b/MOD/DBIUtils.pm
index 0c85321..fcdb029 100644
--- a/MOD/DBIUtils.pm
+++ b/MOD/DBIUtils.pm
@@ -81,7 +81,7 @@ sub enter_table($$$$)
     my $article_id = undef;
 
     my $age = $self->{'config'}->{'check_duplicates_age'} || 7;
-    my $sha1 = Digest::SHA1::sha1_hex($body);
+    my $sha1 = Digest::SHA::sha1_hex($body);
     my $stmt = $self->{'dbh'}->prepare(
       "SELECT id\n" .
       "\nFROM " . $table .
diff --git a/MOD/ReadMail.pm b/MOD/ReadMail.pm
index 27d9386..d50f169 100644
--- a/MOD/ReadMail.pm
+++ b/MOD/ReadMail.pm
@@ -100,7 +100,7 @@ sub add_article($$;$)
     }
 
     if ($config->{'subjectcheck'} and
-	$db->check_subject($article->header('subject')))
+      $db->check_subject($article->header('subject')))
     {
       my $subjectscore = $config->{'subjectscore'};
       $article->add_headers('X-Subject-Test', $subjectscore);