Mercurial > emacs

diff lisp/mail/mailpost.el @ 26039:fb6b9c37cdc4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use make-temp-file.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 15 Oct 1999 16:03:59 +0000
parents b6e2164dbed8
children 3baeb77c0e39
line wrap: on
line diff
--- a/lisp/mail/mailpost.el	Fri Oct 15 15:48:53 1999 +0000
+++ b/lisp/mail/mailpost.el	Fri Oct 15 16:03:59 1999 +0000
@@ -28,7 +28,7 @@
   (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 @@
 		(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