1 files changed, 1 insertions, 0 deletions
diff --git a/KeyRing.hs b/KeyRing.hs
index f7b4ec8..52635be 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -997,6 +997,7 @@ buildKeyDB doDecrypt secring pubring grip0 keyring = do
                                case ps of
                                    Message ((PublicKeyPacket {}):_) -> Pub
                                    Message ((SecretKeyPacket {}):_) -> Sec
+                                    _                                -> AutoAccess
                            acc -> acc
        readw wk n = fmap (n,) (readPacketsFromWallet wk n)

diff --git a/KeyRing.hs b/KeyRing.hs index f7b4ec8..52635be 100644 --- a/KeyRing.hs +++ b/KeyRing.hs
@@ -997,6 +997,7 @@ buildKeyDB doDecrypt secring pubring grip0 keyring = do
997	case ps of	997	case ps of
998	Message ((PublicKeyPacket {}):_) -> Pub	998	Message ((PublicKeyPacket {}):_) -> Pub
999	Message ((SecretKeyPacket {}):_) -> Sec	999	Message ((SecretKeyPacket {}):_) -> Sec
		1000	_ -> AutoAccess
1000	acc -> acc	1001	acc -> acc
1001		1002
1002	readw wk n = fmap (n,) (readPacketsFromWallet wk n)	1003	readw wk n = fmap (n,) (readPacketsFromWallet wk n)