From 6651c01506b4c903a8e473544ee4f7af9c555bca Mon Sep 17 00:00:00 2001
From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 2 Jul 2012 00:48:41 +0000
Subject: [PATCH] gnus-sync.el: Simply require json registry.el: Simply require
 eieio and eieio-base

---
 lisp/gnus/ChangeLog    |  6 ++++++
 lisp/gnus/gnus-sync.el | 13 +------------
 lisp/gnus/registry.el  | 16 ++--------------
 3 files changed, 9 insertions(+), 26 deletions(-)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 649b5a74fb8..d608029e618 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2012-07-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-sync.el: Simply require json.
+
+	* registry.el: Simply require eieio and eieio-base.
+
 2012-06-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* tests/gnustest-nntp.el, tests/gnustest-registry.el, tests/: Remove.
diff --git a/lisp/gnus/gnus-sync.el b/lisp/gnus/gnus-sync.el
index 7e13b885edf..15d94810c3a 100644
--- a/lisp/gnus/gnus-sync.el
+++ b/lisp/gnus/gnus-sync.el
@@ -84,18 +84,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(eval-and-compile
-  (or (ignore-errors (progn
-                       (require 'json)))
-      ;; gnus-fallback-lib/ from gnus/lisp/gnus-fallback-lib
-      (ignore-errors
-        (let ((load-path (cons (expand-file-name
-                                "gnus-fallback-lib"
-                                (file-name-directory (locate-library "gnus")))
-                               load-path)))
-          (require 'json)))
-      (error
-       "json not found in `load-path' or gnus-fallback-lib/ directory.")))
+(require 'json)
 (require 'gnus)
 (require 'gnus-start)
 (require 'gnus-util)
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index b2130d56eb6..7b1029a2690 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -79,20 +79,8 @@
 
 (eval-when-compile (require 'cl))
 
-(eval-and-compile
-  (or (ignore-errors (progn
-                       (require 'eieio)
-                       (require 'eieio-base)))
-      ;; gnus-fallback-lib/ from gnus/lisp/gnus-fallback-lib
-      (ignore-errors
-        (let ((load-path (cons (expand-file-name
-                                "gnus-fallback-lib/eieio"
-                                (file-name-directory (locate-library "gnus")))
-                               load-path)))
-          (require 'eieio)
-          (require 'eieio-base)))
-      (error
-       "eieio not found in `load-path' or gnus-fallback-lib/ directory.")))
+(require 'eieio)
+(require 'eieio-base)
 
 (defclass registry-db (eieio-persistent)
   ((version :initarg :version
-- 
2.39.2