delete_temp_file fix

[bpt/emacs.git] / lisp / obsolete / mailpost.el

diff --git a/lisp/obsolete/mailpost.el b/lisp/obsolete/mailpost.el
index 158523e..bcd468c 100644 (file)
--- a/lisp/obsolete/mailpost.el
+++ b/lisp/obsolete/mailpost.el
@@ -6,10 +6,10 @@
 ;; This file is part of GNU Emacs.
 
 ;; Author: Gary Delp <delp@huey.Udel.Edu>
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
 ;; Created: 13 Jan 1986
 ;; Keywords: mail
-;; Obsolete-since: 24.2
+;; Obsolete-since: 24.3
 
 ;;; Commentary:
 
@@ -75,12 +75,7 @@ site-init."
            (if mail-interactive
                (with-current-buffer errbuf
                  (erase-buffer))))
-         (let ((m (default-file-modes)))
-           (unwind-protect
-               (progn
-                 (set-default-file-modes 384)
-                 (setq temfile  (make-temp-file ",rpost")))
-             (set-default-file-modes m)))
+         (with-file-modes 384 (setq temfile (make-temp-file ",rpost")))
          (apply 'call-process
                 (append (list (if (boundp 'post-mail-program)
                                   post-mail-program