From dd884b8e8f9433b89e419610706cca95accd2979 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 26 Oct 1998 11:20:09 +0000 Subject: [PATCH] Require `mel-b-ccl' or `mel-b-el' if `mel-b' does not exist. --- lisp/pop3-fma.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el index 964db97..90f5ce3 100644 --- a/lisp/pop3-fma.el +++ b/lisp/pop3-fma.el @@ -1,4 +1,4 @@ -;; pop3-fma.el.el --- POP3 for Multiple Account for Gnus. +;; pop3-fma.el --- POP3 for Multiple Account for Gnus. ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. , Tatsuya Ichikawa ;; Yasuo Okabe ;; Author: Tatsuya Ichikawa @@ -80,7 +80,12 @@ (unless (and (fboundp 'pop3-fma-encode-string) (fboundp 'pop3-fma-decode-string)) - (require 'mel-b) + (unless (condition-case nil + (require 'mel-b-ccl) + (error nil)) + (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)) @@ -382,5 +387,3 @@ Argument PROMPT ." (provide 'pop3-fma) ;; ;; pop3-fma.el ends here. - - -- 1.7.10.4