X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pgg-gpg.el;fp=pgg-gpg.el;h=32c59df5180cb0d68ff48edf9bff3f57ad66d5db;hb=19df3ae3d538a561d41752abbcee984f9b77f597;hp=89498c8fc436d853c61c606e191036feb847cee0;hpb=2b3657424edb4ce61cc0e764f83c04f6b4a4a1ea;p=elisp%2Fsemi.git

diff --git a/pgg-gpg.el b/pgg-gpg.el
index 89498c8..32c59df 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -71,7 +71,6 @@
 	    ,@pgg-gpg-extra-args ,@args))
 	 (output-buffer pgg-output-buffer)
 	 (errors-buffer pgg-errors-buffer)
-	 (orig-mode (default-file-modes))
 	 (process-connection-type nil)
 	 process status exit-status)
     (with-current-buffer (get-buffer-create errors-buffer)
@@ -79,7 +78,6 @@
       (erase-buffer))
     (unwind-protect
 	(progn
-	  (set-default-file-modes 448)
 	  (setq process
 		(apply #'binary-to-text-funcall
 		       pgg-gpg-messages-coding-system
@@ -109,8 +107,7 @@
       (if (and process (eq 'run (process-status process)))
 	  (interrupt-process process))
       (if (file-exists-p output-file-name)
-	  (delete-file output-file-name))
-      (set-default-file-modes orig-mode))))
+	  (delete-file output-file-name)))))
 
 (defun pgg-gpg-possibly-cache-passphrase (passphrase)
   (if (and pgg-cache-passphrase