From: teranisi <teranisi>
Date: Mon, 9 Jun 2003 14:41:04 +0000 (+0000)
Subject: * pgg-gpg.el (pgg-gpg-process-region): Remove needless set-default-file-modes.
X-Git-Tag: semi-1_14_6~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=19df3ae3d538a561d41752abbcee984f9b77f597;p=elisp%2Fsemi.git

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

diff --git a/ChangeLog b/ChangeLog
index 971b240..8d56b34 100644
--- 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
--- 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