From: tsuchiya <tsuchiya>
Date: Wed, 12 Sep 2001 03:27:22 +0000 (+0000)
Subject: When `mel-b-builtin' equals nil, load `mel-b-el'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d9709e025b3dd334c49b2eecfdb50ab5997e4f51;p=elisp%2Fflim.git

When `mel-b-builtin' equals nil, load `mel-b-el'
to define `base64-encode-string'.
---

diff --git a/ChangeLog b/ChangeLog
index fea3966..ddbb16f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-12  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+	* mel.el (top): When `mel-b-builtin' equals nil, load `mel-b-el'
+	to define `base64-encode-string'.
+
 2001-07-16  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* smtpmail.el (smtpmail-send-it): Work even if the first line of
diff --git a/mel.el b/mel.el
index 3d10b13..c58e3ff 100644
--- a/mel.el
+++ b/mel.el
@@ -191,7 +191,8 @@ It won't work for processes in Nemacs."
    (and (fboundp 'base64-encode-string)
         (subrp (symbol-function 'base64-encode-string))))
 
-(when mel-b-builtin
+(if (not mel-b-builtin)
+    (require 'mel-b-el)
   (mel-define-backend "base64")
   (mel-define-method-function (mime-encode-string string (nil "base64"))
 			      'base64-encode-string)