From: morioka <morioka>
Date: Sat, 24 Oct 1998 10:50:50 +0000 (+0000)
Subject: Require `poe' instead of `emu'.
X-Git-Tag: flim-1_11_2~44
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dda03a6920e50b3353fc09c79992e22d3f7b99fd;p=elisp%2Fflim.git

Require `poe' instead of `emu'.
(base64-encode-string): Use `defun-maybe'.
(base64-encode-region): Likewise.
(base64-decode-region): Likewise.
(base64-decode-string): Likewise.
---

diff --git a/mel-b.el b/mel-b.el
index ad34a37..9bcec60 100644
--- a/mel-b.el
+++ b/mel-b.el
@@ -26,7 +26,7 @@
 
 ;;; Code:
 
-(require 'emu)
+(require 'poe)
 (require 'mime-def)
 
 
@@ -106,7 +106,7 @@ external decoder is called."
 		(base64-num-to-char (ash (logand a 3) 4))) "==")
        ))))
 
-(defun base64-encode-string (string)
+(defun-maybe base64-encode-string (string)
   "Encode STRING to base64, and return the result."
   (let ((len (length string))
 	(b 0)(e 57)
@@ -263,7 +263,7 @@ external decoder is called."
 ;;; @ application interfaces
 ;;;
 
-(defun base64-encode-region (start end)
+(defun-maybe base64-encode-region (start end)
   "Encode current region by base64.
 START and END are buffer positions.
 This function calls internal base64 encoder if size of region is
@@ -277,7 +277,7 @@ metamail or XEmacs package)."
       (base64-external-encode-region start end)
     (base64-internal-encode-region start end)))
 
-(defun base64-decode-region (start end)
+(defun-maybe base64-decode-region (start end)
   "Decode current region by base64.
 START and END are buffer positions.
 This function calls internal base64 decoder if size of region is
@@ -291,7 +291,7 @@ metamail or XEmacs package)."
       (base64-external-decode-region start end)
     (base64-internal-decode-region start end)))
 
-(defun base64-decode-string (string)
+(defun-maybe base64-decode-string (string)
   "Decode STRING which is encoded in base64, and return the result.
 This function calls internal base64 decoder if size of STRING is
 smaller than `base64-internal-decoding-limit', otherwise it calls