From bc624dbf7d08732d6c35ef7f33b366e7821ff906 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 29 Apr 2016 13:02:09 -0400
Subject: Set appropriate umask for .gnupg creation.

---
 lib/Kiki.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 38064ff..bdf8932 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -117,6 +117,7 @@ importAndRefresh root cmn = do
     (home,secring,pubring,mbwk) <- unconditionally $ getHomeDir homespec
     osHomeDir <- if bUnprivileged then getHomeDirectory else return "/root"
 
+    old_umask <- setFileCreationMask(0o077);
     -- Generate secring.gpg if it does not exist...
     gotsec <- doesFileExist secring
     when (not gotsec) $ do
@@ -145,6 +146,7 @@ importAndRefresh root cmn = do
                         HomePub
                         ( encode $ Message [] )
 
+    setFileCreationMask(old_umask);
     -- Old paths..
     --
     -- Private
-- 
cgit v1.2.3