Avoid using mm-make-temp-file

* lisp/gnus/mail-source.el (mail-source-delete-crash-box): Ditto.

* lisp/gnus/mm-decode.el (mm-display-external): Ditto.

* lisp/gnus/mml-smime.el (mml-smime-openssl-encrypt): Ditto.

diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el
index 693061632e16371935a817d36735b3ac56143527..d360f5f71fe219c0764a5ca91da87b682673c3c3 100644 (file)
--- a/lisp/gnus/mail-source.el
+++ b/lisp/gnus/mail-source.el
@@ -639,7 +639,7 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile)
     (if (eq mail-source-delete-incoming t)
        (delete-file mail-source-crash-box)
       (let ((incoming
-            (mm-make-temp-file
+            (make-temp-file
              (expand-file-name
               mail-source-incoming-file-prefix
               mail-source-directory))))

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index d6900149d912fb22a80f267df72b144f11fb61ab..c861b9a8a29afaa228aab8026ef0e219f8bfcc68 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -915,7 +915,7 @@ external if displayed external."
        ;; The function is a string to be executed.
        (mm-insert-part handle)
        (mm-add-meta-html-tag handle)
-       (let* ((dir (mm-make-temp-file
+       (let* ((dir (make-temp-file
                     (expand-file-name "emm." mm-tmp-directory) 'dir))
               (filename (or
                          (mail-content-type-get
@@ -945,8 +945,8 @@ external if displayed external."
                ;; `mailcap-mime-extensions'.
                (setq suffix (car (rassoc (mm-handle-media-type handle)
                                          mailcap-mime-extensions))))
-             (setq file (mm-make-temp-file (expand-file-name "mm." dir)
-                                           nil suffix))))
+             (setq file (make-temp-file (expand-file-name "mm." dir)
+                                        nil suffix))))
          (let ((coding-system-for-write mm-binary-coding-system))
            (write-region (point-min) (point-max) file nil 'nomesg))
          ;; The file is deleted after the viewer exists.  If the users edits

diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el
index 02be62e6038d64af2f2fb828b4e4426d15918474..e7ee6e7c8890181f40a668d119f9398b68f92b97 100644 (file)
--- a/lisp/gnus/mml-smime.el
+++ b/lisp/gnus/mml-smime.el
@@ -149,8 +149,7 @@ Whether the passphrase is cached at all is controlled by
       (if (not (and (not (file-exists-p tmp))
                    (get-buffer tmp)))
          (push tmp certfiles)
-       (setq file (mm-make-temp-file (expand-file-name "mml."
-                                                       mm-tmp-directory)))
+       (setq file (make-temp-file (expand-file-name "mml." mm-tmp-directory)))
        (with-current-buffer tmp
          (write-region (point-min) (point-max) file))
        (push file certfiles)