2001-07-15 Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>

[gnus] / lisp / uudecode.el

diff --git a/lisp/uudecode.el b/lisp/uudecode.el
index 9f423eb..b7168c6 100644 (file)
--- a/lisp/uudecode.el
+++ b/lisp/uudecode.el
@@ -102,9 +102,13 @@ used is specified by `uudecode-decoder-program'."
                                               (match-string 1)))))
        (setq tempfile (if file-name
                           (expand-file-name file-name)
-                        (let ((temporary-file-directory
-                               uudecode-temporary-file-directory))
-                          (make-temp-file "uu"))))
+                          (if (fboundp 'make-temp-file)
+                              (let ((temporary-file-directory
+                                     uudecode-temporary-file-directory))
+                                (make-temp-file "uu"))
+                            (expand-file-name
+                             (make-temp-name "uu")
+                             uudecode-temporary-file-directory))))
        (let ((cdir default-directory)
              default-process-coding-system)
          (unwind-protect