From: ichikawa <ichikawa>
Date: Mon, 26 Oct 1998 14:08:08 +0000 (+0000)
Subject: lisp/pop3-fma.el: Require mel-b-el if mel-b does not exist.
X-Git-Tag: pgnus-ichikawa-199811302358~136
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=49e6091148fad026ec5a2324eaff06c145506235;p=elisp%2Fgnus.git-

lisp/pop3-fma.el: Require mel-b-el if mel-b does not exist.
---

diff --git a/ChangeLog b/ChangeLog
index 605a1d2..3656653 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+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.
+
 1998-10-26  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* 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 <t-ichi@po.shiojiri.ne.jp>
@@ -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.
+
+