diff options
Diffstat (limited to 'lisp/mail/mailpost.el')
| -rw-r--r-- | lisp/mail/mailpost.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el index 2bb5764948b..0d053da6024 100644 --- a/lisp/mail/mailpost.el +++ b/lisp/mail/mailpost.el @@ -28,7 +28,7 @@ site-init." (let ((errbuf (if mail-interactive (generate-new-buffer " post-mail errors") 0)) - (temfile (expand-file-name ",rpost" temporary-file-directory)) + (temfile (make-temp-file ",rpost")) (tembuf (generate-new-buffer " post-mail temp")) (case-fold-search nil) delimline @@ -74,8 +74,8 @@ site-init." (save-excursion (set-buffer errbuf) (erase-buffer)))) - (write-file (setq temfile (make-temp-name temfile))) (set-file-modes temfile 384) + (write-file temfile) (apply 'call-process (append (list (if (boundp 'post-mail-program) post-mail-program |