From dda03a6920e50b3353fc09c79992e22d3f7b99fd Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 24 Oct 1998 10:50:50 +0000 Subject: [PATCH] Require `poe' instead of `emu'. (base64-encode-string): Use `defun-maybe'. (base64-encode-region): Likewise. (base64-decode-region): Likewise. (base64-decode-string): Likewise. --- mel-b.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 -- 1.7.10.4