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

[Dave Love]

Index: emacs/lisp/gnus/mm-util.el
diff -c emacs/lisp/gnus/mm-util.el:1.24 emacs/lisp/gnus/mm-util.el:1.25
*** emacs/lisp/gnus/mm-util.el:1.24     Thu Jan  3 09:51:05 2002
--- emacs/lisp/gnus/mm-util.el  Thu Mar 21 14:11:23 2002
***************
*** 723,728 ****
--- 723,742 ----
          (push dir result))
        (push path result))))
  
+ ;; It is not a MIME function, but some MIME functions use it.
+ (defalias 'mm-make-temp-file
+   (if (fboundp 'make-temp-file)
+       'make-temp-file
+     (lambda (prefix &optional dir-flag)
+       (let ((file (expand-file-name
+                  (make-temp-name prefix)
+                  (if (fboundp 'temp-directory)
+                      (temp-directory)
+                    temporary-file-directory))))
+       (if dir-flag
+           (make-directory file))
+       file))))
+ 
  (provide 'mm-util)
  
  ;;; mm-util.el ends here