From: yamaoka <yamaoka>
Date: Wed, 15 Feb 2006 02:08:26 +0000 (+0000)
Subject: (mm-make-temp-file): Be always alias to make-temp-file.
X-Git-Tag: t-gnus-6_17_4-quimby-~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d588e0fc03e162ebc7db6276c52a5294a04e95aa;p=elisp%2Fgnus.git-

(mm-make-temp-file): Be always alias to make-temp-file.
---

diff --git a/ChangeLog b/ChangeLog
index 847e93c..fcf4584 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/nnheader.el (mm-make-temp-file): Be always alias to
+	make-temp-file.
+
 2006-01-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* Makefile.in (clean): Clean all subdirectories; remove *~.
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index c1f1cf5..879f17b 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -311,19 +311,7 @@ nil, ."
 		 (t
 		  (lambda nil enable-multibyte-characters))))
 
-  ;; Should keep track of the same alias in mm-util.el.
-  (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))))
+  (defalias 'mm-make-temp-file 'make-temp-file)
 
   ;; Should keep track of `mm-coding-system-p' in mm-util.el.
   (defun nnheader-coding-system-p (sym)