backups should be 600

[Bastian Blank]

--H+4ONPRPur6+Ovig
Content-Type: multipart/mixed; boundary="ReaqsoxgOBHFXBhH"
Content-Disposition: inline


--ReaqsoxgOBHFXBhH
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

hi folks

the following patch makes the backups 600.

bastian

--=20
Warp 7 -- It's a law we can live with.

--ReaqsoxgOBHFXBhH
Content-Type: text/plain; charset=us-ascii
Content-Description: diff
Content-Disposition: attachment; filename=diff
Content-Transfer-Encoding: quoted-printable

--- gpa-0.6.1.orig/src/gpgmetools.c
+++ gpa-0.6.1/src/gpgmetools.c
@@ -301,13 +301,16 @@
       NULL, "--batch", "--no-tty", "--armor", "--export-secret-key",=20
       (gchar*) fpr, NULL
     };
+  mode_t mask;
=20
   gpa_parse_engine_info (&info);
   header_argv[0] =3D info.path;
   pub_argv[0] =3D info.path;
   sec_argv[0] =3D info.path;
   /* Open the file */
+  mask =3D umask (0077);
   file =3D fopen (filename, "w");
+  umask (mask);
   if (!file)
     {
       gchar message[256];

--ReaqsoxgOBHFXBhH--

--H+4ONPRPur6+Ovig
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.2 (GNU/Linux)

iEYEARECAAYFAj7gthIACgkQLkAIIn9ODhHRCACeIlbGFak8JKP7YGtBpLeG+SRV
F+0An1z+1PzpIcfajISYsFJa4XzZkkZw
=n2Kq
-----END PGP SIGNATURE-----

--H+4ONPRPur6+Ovig--