From 66a95f5d27b067ac41d3deb1ecf903f09da39c24 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 24 Oct 1998 13:18:52 +0000
Subject: [PATCH] Abolish variable `mime-temp-directory'. (base64-dl-module):
 fixed.

---
 mime-def.el |   13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/mime-def.el b/mime-def.el
index 6cc9554..743c30d 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -63,16 +63,6 @@
 (custom-handle-keyword 'default-mime-charset :group 'mime
 		       'custom-variable)
 
-(defcustom mime-temp-directory (or (getenv "MIME_TMP_DIR")
-				   (getenv "TM_TMP_DIR")
-				   (getenv "TMPDIR")
-				   (getenv "TMP")
-				   (getenv "TEMP")
-				   "/tmp/")
-  "*Directory for temporary files."
-  :group 'mime
-  :type 'directory)
-
 (defcustom mime-uuencode-encoding-name-list '("x-uue" "x-uuencode")
   "*List of encoding names for uuencode format."
   :group 'mime
@@ -537,7 +527,8 @@ variable and (nth 1 (car (last ARGS))) is name of backend (encoding)."
        )))
 
 (defvar base64-dl-module
-  (if (subrp 'base64-encode-string)
+  (if (and (fboundp 'base64-encode-string)
+	   (subrp (symbol-function 'base64-encode-string)))
       nil
     (if (fboundp 'dynamic-link)
 	(let ((path (expand-file-name "base64.so" exec-directory)))
-- 
1.7.10.4