From 8f59947262bc073947e8114d7a82e881495185f5 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 24 Oct 1998 14:40:34 +0000
Subject: [PATCH] Add code to check `base64-encode-string' is builtin or not
 again.

---
 mel.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
1.7.10.4