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 (file)
--- 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 (file)
--- 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)