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 | |
| parent | 93c8d183eee3a992940ebae612cc90eea1095ba9 (diff) | |
| download | emacs-767d12f23e80ebf247671e277f897c468f659b03.tar.gz | |
Use make-temp-file.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mailpost.el | 4 | ||||
| -rw-r--r-- | lisp/mail/metamail.el | 4 |
2 files changed, 4 insertions, 4 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 diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 73f1557be36..c3f017f0231 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Id: metamail.el,v 1.11 1999/01/11 12:36:15 fx Exp rms $ +;; Version: $Id: metamail.el,v 1.12 1999/08/28 18:25:16 rms Exp $ ;; Keywords: mail, news, mime, multimedia ;; This file is part of GNU Emacs. @@ -165,7 +165,7 @@ redisplayed as output is inserted." (interactive "r\np") (let ((curbuf (current-buffer)) (buffer-read-only nil) - (metafile (make-temp-name (expand-file-name "metamail" temporary-file-directory))) + (metafile (make-temp-file "metamail")) (option-environment (list (format "EMACS_VIEW_MODE=%d" (if (numberp viewmode) viewmode 1))))) |