Mercurial > emacs
diff lisp/gnus/mm-decode.el @ 94209:0ffd6dd0f75d
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1118
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 21 Apr 2008 07:13:33 +0000 |
| parents | 2da1f95ea11c |
| children | f42ef85caf91 |
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el Mon Apr 21 05:17:34 2008 +0000 +++ b/lisp/gnus/mm-decode.el Mon Apr 21 07:13:33 2008 +0000 @@ -799,7 +799,7 @@ (copiousoutput (assoc "copiousoutput" mime-info)) file buffer) ;; We create a private sub-directory where we store our files. - (set-file-modes dir 448) + (set-file-modes dir #o700) (if filename (setq file (expand-file-name (gnus-map-function mm-file-name-rewrite-functions @@ -819,6 +819,10 @@ nil suffix)))) (let ((coding-system-for-write mm-binary-coding-system)) (write-region (point-min) (point-max) file nil 'nomesg)) + ;; The file is deleted after the viewer exists. If the users edits + ;; the file, changes will be lost. Set file to read-only to make it + ;; clear. + (set-file-modes file #o400) (message "Viewing with %s" method) (cond (needsterm