[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/10/15 02:49:46

Index: lisp/gnus/mm-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mm-util.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- lisp/gnus/mm-util.el        3 Oct 2006 04:58:51 -0000       1.54
+++ lisp/gnus/mm-util.el        15 Oct 2006 02:49:45 -0000      1.55
@@ -1126,17 +1126,11 @@
                             (setq file (concat file suffix)))
                         (if dir-flag
                             (make-directory file)
-                          (if (or (featurep 'xemacs)
-                                  (= emacs-major-version 20))
                               ;; NOTE: This is unsafe if Emacs 20
                               ;; users and XEmacs users don't use
                               ;; a secure temp directory.
-                              (if (file-exists-p file)
-                                  (signal 'file-already-exists
-                                          (list "File exists" file))
-                                (write-region "" nil file nil 'silent))
-                            (write-region "" nil file nil 'silent
-                                          nil 'excl)))
+                          (gmm-write-region "" nil file nil 'silent
+                                            nil 'excl))
                         nil)
                     (file-already-exists t)
                     ;; The Emacs 20 and XEmacs versions of