From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 17 Dec 2013 10:12:07 +0000 (+0000)
Subject: lisp/gnus/mm-util.el (mm-make-temp-file): Alias to make-temp-file for modern Emacsen
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb8b0736d56871ed988a6f7f2071e0bdd9f760bb;p=emacs.git

lisp/gnus/mm-util.el (mm-make-temp-file): Alias to make-temp-file for modern Emacsen
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 83b66f78f64..7cee21522b6 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mm-util.el (mm-make-temp-file):
+	Alias to make-temp-file for modern Emacsen.
+
 2013-12-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-msg.el (gnus-setup-message): Fix the type of argument passed to
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index 5b0fd6860a0..7ccf1c9e9ee 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -1382,13 +1382,12 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'."
 ;; It is not a MIME function, but some MIME functions use it.
 (if (and (fboundp 'make-temp-file)
 	 (ignore-errors
-	   (let ((def (symbol-function 'make-temp-file)))
-	     (and (byte-code-function-p def)
-		  (setq def (if (fboundp 'compiled-function-arglist)
-				;; XEmacs
-				(eval (list 'compiled-function-arglist def))
-			      (aref def 0)))
-		  (>= (length def) 4)
+	   (let ((def (if (fboundp 'compiled-function-arglist) ;; XEmacs
+			  (eval (list 'compiled-function-arglist
+				      (symbol-function 'make-temp-file)))
+			(require 'help-fns)
+			(help-function-arglist 'make-temp-file t))))
+	     (and (>= (length def) 4)
 		  (eq (nth 3 def) 'suffix)))))
     (defalias 'mm-make-temp-file 'make-temp-file)
   ;; Stolen (and modified for XEmacs) from Emacs 22.