From: ichikawa <ichikawa>
Date: Tue, 27 Oct 1998 15:08:07 +0000 (+0000)
Subject: lisp/pop3-fma.el: To determin base64 encode/decode function by FLIM
X-Git-Tag: pgnus-ichikawa-199811302358~135
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=251f57f3f7fd73648b2672c43aa063de04923617;p=elisp%2Fgnus.git-

lisp/pop3-fma.el: To determin base64 encode/decode function by FLIM
---

diff --git a/ChangeLog b/ChangeLog
index 3656653..eeed53f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-10-28  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/pop3-fma.el: Determin base64 encode/decode function by FLIM.
+
 1998-10-26  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
 	* lisp/pop3-fma.el: Require `mel-b-el' if `mel-b' does not exist.
diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 77d8b15..1f09f87 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -80,11 +80,11 @@
 
 (unless (and (fboundp 'pop3-fma-encode-string)
 	     (fboundp 'pop3-fma-decode-string))
-  (condition-case nil
-      (require 'mel-b-el)
-    (error (require 'mel-b)))
-  (fset 'pop3-fma-encode-string 'base64-encode-string)
-  (fset 'pop3-fma-decode-string 'base64-decode-string))
+  (require 'mel)
+  (fset 'pop3-fma-encode-string
+	(mel-find-function 'mime-encode-string "base64"))
+  (fset 'pop3-fma-decode-string
+	(mel-find-function 'mime-decode-string "base64")))
 
 (defgroup pop3-fma nil
   "Multile POP3 account utility for Gnus."