From 19df3ae3d538a561d41752abbcee984f9b77f597 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 9 Jun 2003 14:41:04 +0000 Subject: [PATCH] * pgg-gpg.el (pgg-gpg-process-region): Remove needless set-default-file-modes. --- ChangeLog | 3 ++- pgg-gpg.el | 5 +---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 971b240..8d56b34 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,8 @@ 2003-06-09 Yuuichi Teranishi * 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 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 -- 1.7.10.4