* pgg-gpg.el (pgg-gpg-process-region): Remove needless set-default-file-modes.

diff --git a/ChangeLog b/ChangeLog
index 971b240..8d56b34 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 2003-06-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * pgg-gpg.el (pgg-gpg-process-region): Undo the last change;
-       Add --yes option to overwrite existing output file.
+       Add --yes option to overwrite existing output file;
+       Remove needless set-default-file-modes.
 
 2003-05-29  Yuuichi Teranishi  <teranisi@gohome.org>
 

diff --git a/pgg-gpg.el b/pgg-gpg.el
index 89498c8..32c59df 100644 (file)
--- 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