procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Let url use default file modes when copying files

Browse source 
* lisp/url/url-handlers.el (url-copy-file): Use default file
modes when copying files (bug#11400).
This commit is contained in:
Lars Ingebrigtsen 2015-12-25 22:36:32 +01:00
parent 344303c8d9
commit 0697719d73
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/url/url-handlers.el
View file

@ -269,7 +269,8 @@ A prefix arg makes KEEP-TIME non-nil."
(error "Opening input file: No such file or directory, %s" url))
(with-current-buffer buffer
(setq handle (mm-dissect-buffer t)))
(mm-save-part-to-file handle newname)
(let ((mm-attachment-file-modes (default-file-modes)))
(mm-save-part-to-file handle newname))
(kill-buffer buffer)
(mm-destroy-parts handle)))
(put 'copy-file 'url-file-handlers 'url-copy-file)