X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fuudecode.el;h=299f83b914132aa03b2d3d31083e7f5a39a021f6;hb=cddb4672a1b8d0b3fb03dd1c5cad4b01f9fab219;hp=0703974151174dc20037696a6ab349c26c1f7333;hpb=395b85bdad1eaa7c88a8814c05d3a14d1e2b6b1e;p=elisp%2Fgnus.git-

diff --git a/lisp/uudecode.el b/lisp/uudecode.el
index 0703974..299f83b 100644
--- a/lisp/uudecode.el
+++ b/lisp/uudecode.el
@@ -2,7 +2,7 @@
 ;; Copyright (c) 1998 by Shenghuo Zhu <zsh@cs.rochester.edu>
 
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
-;; $Revision: 5.6 $
+;; $Revision: 5.7 $
 ;; Keywords: uudecode
 
 ;; This file is not part of GNU Emacs, but the same permissions
@@ -55,7 +55,7 @@ input and write the converted data to its standard output.")
 (defvar uudecode-temporary-file-directory
   (cond ((fboundp 'temp-directory) (temp-directory))
 	((boundp 'temporary-file-directory) temporary-file-directory)
-	("/tmp/")))
+	("/tmp")))
 
 ;;;###autoload
 (defun uudecode-decode-region-external (start end &optional file-name)
@@ -75,9 +75,12 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
 	       (setq file-name (read-file-name "File to Name:"
 					       nil nil nil
 					       (match-string 1)))))
-	(setq tempfile (expand-file-name
-			(or file-name (concat uudecode-temporary-file-directory
-					      (make-temp-name "uu")))))
+	(setq tempfile (if file-name
+			   (expand-file-name file-name)
+			 (make-temp-name
+			  ;; /tmp/uu...
+			  (expand-file-name
+			   "uu" uudecode-temporary-file-directory))))
 	(let ((cdir default-directory) default-process-coding-system)
 	  (unwind-protect
 	      (progn