Show cipher for password-protected keys.

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 80b7826..4e83d80 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -54,6 +54,7 @@ module KeyRing
     , keyflags
     -- * Miscelaneous Utilities
     , isKey
+    , isSecretKey
     , derRSA
     , derToBase32
     , backsig
@@ -2570,7 +2571,9 @@ makeMemoizingDecrypter operation ctx keys = do
                 case symmetric_algorithm wkun of
                     Unencrypted -> do
                         writeIORef unkeysRef (Map.insert kk wkun unkeys)
-                        ek <- encryptSecretKey pw dest_s2k dest_alg wkun
+                        ek <- if dest_alg==Unencrypted
+                                then return $ Just wkun
+                                else encryptSecretKey pw dest_s2k dest_alg wkun
                         case ek of
                             Nothing   -> return $ BadPassphrase
                             Just wken -> return $ KikiSuccess wken