From 6513806f0e9cb63a284c17e906eda4b8207af92a Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 8 Oct 1998 06:48:36 +0000
Subject: [PATCH] Move variable `base64-dl-module' from mel-b-dl.el and mel.el
 to mime-def.el.

---
 mel-b-dl.el |    3 ---
 mel.el      |    6 ------
 mime-def.el |    6 ++++++
 3 files changed, 6 insertions(+), 9 deletions(-)

diff --git a/mel-b-dl.el b/mel-b-dl.el
index 1d3fb14..0f0f22e 100644
--- a/mel-b-dl.el
+++ b/mel-b-dl.el
@@ -28,9 +28,6 @@
 (require 'mime-def)
 
 (eval-and-compile
-  (defvar base64-dl-module
-    (expand-file-name "base64.so" exec-directory))
-
   (defvar base64-dl-handle
     (and (file-exists-p base64-dl-module)
 	 (dynamic-link base64-dl-module)))
diff --git a/mel.el b/mel.el
index 7d51ece..1b13f0b 100644
--- a/mel.el
+++ b/mel.el
@@ -79,12 +79,6 @@ Content-Transfer-Encoding for it."
 ;;; @ setting for modules
 ;;;
 
-(defvar base64-dl-module
-  (and (fboundp 'dynamic-link)
-       (let ((path (expand-file-name "base64.so" exec-directory)))
-	 (and (file-exists-p path)
-	      path))))
-
 (defvar mel-ccl-module
   (and (featurep 'mule)
        (module-installed-p 'mel-ccl)))
diff --git a/mime-def.el b/mime-def.el
index 0008485..eb9d3a6 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -474,6 +474,12 @@ variable and (nth 1 (car (last ARGS))) is name of backend (encoding)."
 	 (intern ,class ,(intern (format "%s-obarray" name))))
        )))
 
+(defvar base64-dl-module
+  (and (fboundp 'dynamic-link)
+       (let ((path (expand-file-name "base64.so" exec-directory)))
+	 (and (file-exists-p path)
+	      path))))
+
 
 ;;; @ end
 ;;;
-- 
1.7.10.4