From cea3b3e3aebf6721624f40f3d23bfb56f299848b Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 19 Jun 1998 21:38:34 +0000
Subject: [PATCH] (base64-internal-decode-string): Renamed from
 `base64-internal-decode-string'. (base64-decode-string):
 New alias for `base64-internal-decode-string'.

---
 mel-b.el |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mel-b.el b/mel-b.el
index 9a50910..dd59d7e 100644
--- a/mel-b.el
+++ b/mel-b.el
@@ -149,7 +149,7 @@ external decoder is called.")
 			    ))
       )))
 
-(defun base64-decode-string (string)
+(defun base64-internal-decode-string (string)
   "Decode STRING which is encoded in base64, and return the result."
   (let ((len (length string))
 	(i 0)
@@ -188,6 +188,8 @@ external decoder is called.")
 		    ))))))))))
     dest))
 
+(defalias 'base64-decode-string 'base64-internal-decode-string)
+
 
 ;;; @ base64 encoder/decoder for region
 ;;;
@@ -210,7 +212,7 @@ external decoder is called.")
     (let ((str (buffer-substring beg end)))
       (delete-region beg end)
       (goto-char beg)
-      (insert (base64-decode-string str)))))
+      (insert (base64-internal-decode-string str)))))
 
 (defun base64-external-encode-region (beg end)
   (save-excursion
-- 
1.7.10.4