Remove some useless-use-of eval.

* lisp/gnus/gnus.el (gnus-load-hook): Don't use eval.
* lisp/gnus/nnrss.el (xml): Simply require it.
(xml-rpc-method-call): Use declare-function.

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 5d2ce7ee19f0310a482cca1ace462df0c21f40c7..996bb9e6b7b2129d7d72b3d548f0b85905dd644d 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -27,7 +27,7 @@
 
 ;;; Code:
 
-(eval '(run-hooks 'gnus-load-hook))
+(run-hooks 'gnus-load-hook)
 
 (eval-when-compile (require 'cl))
 (require 'wid-edit)

diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index c17a13c54c3250b4f507b66d6098fe5899ff28c9..bef8203ef27959c897ed50909aa194e5d505c695 100644 (file)
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -37,10 +37,7 @@
 (require 'mm-url)
 (require 'rfc2047)
 (require 'mml)
-(eval-when-compile
-  (ignore-errors
-   (require 'xml)))
-(eval '(require 'xml))
+(require 'xml)
 
 (nnoo-declare nnrss)
 
@@ -372,8 +369,6 @@ for decoding when the cdr that the data specify is not available.")
 (nnoo-define-skeleton nnrss)
 
 ;;; Internal functions
-(eval-when-compile (defun xml-rpc-method-call (&rest args)))
-
 (defun nnrss-get-encoding ()
   "Return an encoding attribute specified in the current xml contents.
 If `nnrss-compatible-encoding-alist' specifies the compatible encoding,
@@ -959,6 +954,9 @@ Use Mark Pilgrim's `ultra-liberal rss locator'."
              ;;    4. check syndic8
              (nnrss-find-rss-via-syndic8 url))))))))
 
+(declare-function xml-rpc-method-call "ext:xml-rpc"
+                 (server-url method &rest params))
+
 (defun nnrss-find-rss-via-syndic8 (url)
   "Query syndic8 for the rss feeds it has for URL."
   (if (not (locate-library "xml-rpc"))