From d9709e025b3dd334c49b2eecfdb50ab5997e4f51 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Wed, 12 Sep 2001 03:27:22 +0000 Subject: [PATCH] When `mel-b-builtin' equals nil, load `mel-b-el' to define `base64-encode-string'. --- ChangeLog | 5 +++++ mel.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index fea3966..ddbb16f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-09-12 TSUCHIYA Masatoshi + + * mel.el (top): When `mel-b-builtin' equals nil, load `mel-b-el' + to define `base64-encode-string'. + 2001-07-16 Katsumi Yamaoka * 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) -- 1.7.10.4