Reversed eroneous polarity of delete key filter.

1 files changed, 1 insertions, 1 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 1ab819a..776ded3 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -2147,7 +2147,7 @@ performManipulations doDecrypt rt wk manip = do
         let kk = keykey $ packet $ keyMappedPacket kd
             kd' | kk /= topk = kd
                 | otherwise  = kd { keySubKeys = Map.filterWithKey pred $ keySubKeys kd }
-            pred k _ = k == subk
+            pred k _ = k /= subk
             ps = concat $ maybeToList $ do
                 SubKey mp sigs <- Map.lookup subk (keySubKeys kd)
                 return $ packet mp : concatMap (\(p,ts) -> packet p : Map.elems ts) sigs