projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7ee365e
)
* pgg-pgp.el, pgg-pgp5.el (verify-region): Set default umask to 077.
author
ueno
<ueno>
Thu, 11 Nov 1999 06:01:10 +0000
(06:01 +0000)
committer
ueno
<ueno>
Thu, 11 Nov 1999 06:01:10 +0000
(06:01 +0000)
pgg-pgp.el
patch
|
blob
|
history
pgg-pgp5.el
patch
|
blob
|
history
diff --git
a/pgg-pgp.el
b/pgg-pgp.el
index
28e48cb
..
feadb9b
100644
(file)
--- a/
pgg-pgp.el
+++ b/
pgg-pgp.el
@@
-203,8
+203,14
@@
start end &optional signature)
(let* ((basename (expand-file-name "pgg" temporary-file-directory))
(orig-file (make-temp-name basename))
start end &optional signature)
(let* ((basename (expand-file-name "pgg" temporary-file-directory))
(orig-file (make-temp-name basename))
- (args '("+verbose=1" "+batchmode" "+language=us")))
- (write-region-as-binary start end orig-file)
+ (args '("+verbose=1" "+batchmode" "+language=us"))
+ (orig-mode (default-file-modes)))
+ (unwind-protect
+ (progn
+ (set-default-file-modes 448)
+ (write-region-as-binary start end orig-file)
+ )
+ (set-default-file-modes orig-mode))
(when (stringp signature)
(copy-file signature (setq signature (concat orig-file ".asc")))
(setq args (append args (list signature orig-file)))
(when (stringp signature)
(copy-file signature (setq signature (concat orig-file ".asc")))
(setq args (append args (list signature orig-file)))
diff --git
a/pgg-pgp5.el
b/pgg-pgp5.el
index
8598e0e
..
9614b4e
100644
(file)
--- a/
pgg-pgp5.el
+++ b/
pgg-pgp5.el
@@
-215,8
+215,14
@@
start end &optional signature)
(let* ((basename (expand-file-name "pgg" temporary-file-directory))
(orig-file (make-temp-name basename))
start end &optional signature)
(let* ((basename (expand-file-name "pgg" temporary-file-directory))
(orig-file (make-temp-name basename))
- (args '("+verbose=1" "+batchmode=1" "+language=us")))
- (write-region-as-binary start end orig-file)
+ (args '("+verbose=1" "+batchmode=1" "+language=us"))
+ (orig-mode (default-file-modes)))
+ (unwind-protect
+ (progn
+ (set-default-file-modes 448)
+ (write-region-as-binary start end orig-file)
+ )
+ (set-default-file-modes orig-mode))
(when (stringp signature)
(copy-file signature (setq signature (concat orig-file ".asc")))
(setq args (append args (list signature)))
(when (stringp signature)
(copy-file signature (setq signature (concat orig-file ".asc")))
(setq args (append args (list signature)))