summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xkuvert12
1 files changed, 9 insertions, 3 deletions
diff --git a/kuvert b/kuvert
index d0892f0..0bbba76 100755
--- a/kuvert
+++ b/kuvert
@@ -518,7 +518,15 @@ sub process_file
#Check if mail needs to be dropped due to
#encrypt option being specyfied and lack of key
- %actions = grep {$_ ne 'drop'} %actions;
+ #%actions = grep {$_ ne 'drop'} %actions;
+ foreach my $key (keys %actions)
+ {
+ if ($actions{$key} eq 'drop')
+ {
+ delete $actions{$key};
+ logit("Dropping mail to $key due to lack of encryption key");
+ }
+ }
my ($orig_header,$cryptoin);
# prepare various stuff we need only when encrypting or signing
@@ -649,8 +657,6 @@ sub findaction
#Encrypt or drop everything
if ($actions{$addr}=~/^encrypt/)
{
- my $thisaction=$1;
- $actions{$addr}=$thisaction;
$actions{$addr}=$specialkeys{$addr}||$email2key{$addr}||"drop";
}