# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 961744388 0
# Node ID 3baeb77c0e3915390974841916e0884f4a0e651c
# Parent  abd1315edfaf4feeef1c9cf00b56f1a2ff57e954
(post-mail-send-it): Make sure file has
proper permissions from birth.

diff -r abd1315edfaf -r 3baeb77c0e39 lisp/mail/mailpost.el
--- a/lisp/mail/mailpost.el	Fri Jun 23 07:06:02 2000 +0000
+++ b/lisp/mail/mailpost.el	Fri Jun 23 07:13:08 2000 +0000
@@ -28,7 +28,7 @@
   (let ((errbuf (if mail-interactive
 		    (generate-new-buffer " post-mail errors")
 		  0))
-	(temfile (make-temp-file ",rpost"))
+	temfile
 	(tembuf (generate-new-buffer " post-mail temp"))
 	(case-fold-search nil)
 	delimline
@@ -74,8 +74,12 @@
 		(save-excursion
 		  (set-buffer errbuf)
 		  (erase-buffer))))
-	  (set-file-modes temfile 384)
-	  (write-file temfile)
+	  (let ((m (default-file-modes)))
+	    (unwind-protect
+		(progn
+		  (set-default-file-modes 384)
+		  (setq temfile  (make-temp-file ",rpost")))
+	      (set-default-file-modes m)))
 	  (apply 'call-process
 		 (append (list (if (boundp 'post-mail-program)
 				   post-mail-program