From: akr <akr>
Date: Thu, 12 Nov 1998 04:15:38 +0000 (+0000)
Subject: * mel.el (mel-b-builtin): New variable.
X-Git-Tag: chao-1_12-199811302358~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=822788fbb7a228bd921f6a89a4b17968efeaa38e;p=elisp%2Fflim.git

* mel.el (mel-b-builtin): New variable.
---

diff --git a/ChangeLog b/ChangeLog
index 9065118..947d8cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-11-12  Tanaka Akira  <akr@jaist.ac.jp>
+
+	* mel.el (mel-b-builtin): New variable.
+
 1998-11-10  Tanaka Akira  <akr@jaist.ac.jp>
 
 	* FLIM-ELS: require 'pccl.
diff --git a/mel.el b/mel.el
index ccfc072..c8764a9 100644
--- a/mel.el
+++ b/mel.el
@@ -96,8 +96,11 @@ Content-Transfer-Encoding for it."
 
 (mel-define-backend "binary" ("8bit"))
 
-(when (and (fboundp 'base64-encode-string)
-	   (subrp (symbol-function 'base64-encode-string)))
+(defvar mel-b-builtin
+   (and (fboundp 'base64-encode-string)
+        (subrp (symbol-function 'base64-encode-string))))
+
+(when mel-b-builtin
   (mel-define-backend "base64")
   (mel-define-method-function (mime-encode-string string (nil "base64"))
 			      'base64-encode-string)