webstump: use "reject blocklist" for the hardcoded blocklist-related rejection reason

diff --git a/webstump/scripts/filter.lib.pl b/webstump/scripts/filter.lib.pl
index a490c5a40f3ee093d8884e03806b02659e00c6a8..3a41cb5656d19a1a5e9cfa3f8736e9bb6db7cb41 100644 (file)
--- a/webstump/scripts/filter.lib.pl
+++ b/webstump/scripts/filter.lib.pl
@@ -93,7 +93,7 @@ sub review_incoming_message { # Newsgroup, From, Subject, RealSubject, Message,
   my $newsgroup = pop( @_ );
 
   if( &name_is_in_list( $from, "bad.posters.list" ) ) {
-    &process_approval_decision( $subject, $newsgroup, $dir, "reject abuse", "", "auto bad poster" );
+    &process_approval_decision( $subject, $newsgroup, $dir, "reject blocklist", "", "auto bad poster" );
     return;
   }
 

diff --git a/webstump/scripts/webstump.lib.pl b/webstump/scripts/webstump.lib.pl
index 3e9e0efc9af711dd18ee4cebe2897e6a6513e8a3..cafa469a32da835db9a5557db12af9c19f557339 100644 (file)
--- a/webstump/scripts/webstump.lib.pl
+++ b/webstump/scripts/webstump.lib.pl
@@ -585,7 +585,7 @@ sub approval_decision {
       $decision = "reject thread" if $thread_decision eq "ban";
       $decision = "approve" if $thread_decision eq "preapprove";
 
-      $decision = "reject abuse" if $poster_decision eq "ban";
+      $decision = "reject blocklist" if $poster_decision eq "ban";
       $decision = "approve" if $poster_decision eq "preapprove";
 
       if( -r $fullpath && open( MESSAGE, "$fullpath" ) ) {