Move variable `base64-dl-module' from mel-b-dl.el and mel.el to

mime-def.el.

diff --git a/mel-b-dl.el b/mel-b-dl.el
index 1d3fb14..0f0f22e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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
 ;;;