diff options
| author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2002-03-21 19:11:23 +0000 |
|---|---|---|
| committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2002-03-21 19:11:23 +0000 |
| commit | 3efe555424e2382bdd49bff9fdcf3043fe7e1484 (patch) | |
| tree | 9ac9c1c41d8460bb1b307f6daa4f870ade960d55 /lisp/gnus/mm-util.el | |
| parent | 3ae1b884632a2c54da5ef6d98df2c96edd1b393b (diff) | |
| download | emacs-3efe555424e2382bdd49bff9fdcf3043fe7e1484.tar.gz | |
* mail-source.el (make-source-make-complex-temp-name): Use
make-temp-file.
* mm-util.el (mm-make-temp-file): New function.
* nneething.el (nneething-file-name): Use it.
* mm-decode.el (mm-display-external, mm-create-image-xemacs): Ditto.
* gnus-uu.el (gnus-uu-decode-binhex, gnus-uu-decode-binhex-view)
(gnus-uu-digest-mail-forward, gnus-uu-initialize): Ditto.
* gnus-start.el (gnus-slave-save-newsrc): Ditto.
* message.el (message-mode): If buffer-file-name, don't set auto
save file name.
Trivial change from Geoff Greene <ggreene@wpi.edu>
Diffstat (limited to 'lisp/gnus/mm-util.el')
| -rw-r--r-- | lisp/gnus/mm-util.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index bbc16c04879..e540558e75e 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -723,6 +723,20 @@ If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers." (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 |