From 49e6091148fad026ec5a2324eaff06c145506235 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Mon, 26 Oct 1998 14:08:08 +0000 Subject: [PATCH] lisp/pop3-fma.el: Require mel-b-el if mel-b does not exist. --- ChangeLog | 4 ++++ lisp/pop3-fma.el | 13 ++++++------- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 605a1d2..3656653 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-10-26 Tatsuya Ichikawa + + * lisp/pop3-fma.el: Require `mel-b-el' if `mel-b' does not exist. + 1998-10-26 Katsumi Yamaoka * lisp/pop3-fma.el: Require `mel-b-ccl' or `mel-b-el' if `mel-b' diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el index 60cdf5e..77d8b15 100644 --- a/lisp/pop3-fma.el +++ b/lisp/pop3-fma.el @@ -1,4 +1,4 @@ -;; pop3-fma.el --- POP3 for Multiple Account for Gnus. +;; pop3-fma.el.el --- POP3 for Multiple Account for Gnus. ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. , Tatsuya Ichikawa ;; Yasuo Okabe ;; Author: Tatsuya Ichikawa @@ -80,12 +80,9 @@ (unless (and (fboundp 'pop3-fma-encode-string) (fboundp 'pop3-fma-decode-string)) - (unless (condition-case nil - (require 'mel-b-ccl) - (error nil)) - (condition-case nil - (require 'mel-b-el) - (error (require 'mel-b)))) + (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)) @@ -388,3 +385,5 @@ Argument PROMPT ." (provide 'pop3-fma) ;; ;; pop3-fma.el ends here. + + -- 1.7.10.4