From: morioka <morioka>
Date: Sat, 24 Oct 1998 14:40:34 +0000 (+0000)
Subject: Add code to check `base64-encode-string' is builtin or not again.
X-Git-Tag: flim-1_11_2~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8f59947262bc073947e8114d7a82e881495185f5;p=elisp%2Fflim.git

Add code to check `base64-encode-string' is builtin or not again.
---

diff --git a/mel.el b/mel.el
index 226a9fb..277bf6a 100644
--- a/mel.el
+++ b/mel.el
@@ -96,7 +96,8 @@ Content-Transfer-Encoding for it."
 
 (mel-define-backend "binary" ("8bit"))
 
-(when (fboundp 'base64-encode-string)
+(when (and (fboundp 'base64-encode-string)
+	   (subrp (symbol-function 'base64-encode-string)))
   (mel-define-backend "base64")
   (mel-define-method-function (mime-encode-string string (nil "base64"))
 			      'base64-encode-string)