723 |
(push dir result)) |
(push dir result)) |
724 |
(push path result)))) |
(push path result)))) |
725 |
|
|
726 |
|
;; It is not a MIME function, but some MIME functions use it. |
727 |
|
(defalias 'mm-make-temp-file |
728 |
|
(if (fboundp 'make-temp-file) |
729 |
|
'make-temp-file |
730 |
|
(lambda (prefix &optional dir-flag) |
731 |
|
(let ((file (expand-file-name |
732 |
|
(make-temp-name prefix) |
733 |
|
(if (fboundp 'temp-directory) |
734 |
|
(temp-directory) |
735 |
|
temporary-file-directory)))) |
736 |
|
(if dir-flag |
737 |
|
(make-directory file)) |
738 |
|
file)))) |
739 |
|
|
740 |
(provide 'mm-util) |
(provide 'mm-util) |
741 |
|
|
742 |
;;; mm-util.el ends here |
;;; mm-util.el ends here |