diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 1999-10-15 16:03:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 1999-10-15 16:03:59 +0000 |
| commit | 767d12f23e80ebf247671e277f897c468f659b03 (patch) | |
| tree | 5fd077bc47f3965d445717ca3a23463228416078 /lisp/mail/mailpost.el | |
| parent | 93c8d183eee3a992940ebae612cc90eea1095ba9 (diff) | |
| download | emacs-767d12f23e80ebf247671e277f897c468f659b03.tar.gz | |
Use make-temp-file.
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 |