*** empty log message ***

[gnus] / lisp / nnoo.el

diff --git a/lisp/nnoo.el b/lisp/nnoo.el
index c768d04..251fdc9 100644 (file)
--- a/lisp/nnoo.el
+++ b/lisp/nnoo.el
@@ -26,7 +26,7 @@
 ;;; Code:
 
 (require 'nnheader)
-(require 'cl)
+(eval-when-compile (require 'cl))
 
 (defvar nnoo-definition-alist nil)
 (defvar nnoo-state-alist nil)
@@ -96,14 +96,14 @@
        (pop functions)))))
 
 (defun nnoo-parent-function (backend function args)
-  (let* ((pbackend (nnoo-backend function)))
+  (let ((pbackend (nnoo-backend function)))
     (nnoo-change-server pbackend (nnoo-current-server backend)
                        (cdr (assq pbackend (nnoo-parents backend))))
     (apply function args)))
 
 (defun nnoo-execute (backend function &rest args)
   "Execute FUNCTION on behalf of BACKEND."
-  (let* ((pbackend (nnoo-backend function)))
+  (let ((pbackend (nnoo-backend function)))
     (nnoo-change-server pbackend (nnoo-current-server backend)
                        (cdr (assq pbackend (nnoo-parents backend))))
     (apply function args)))
@@ -143,7 +143,7 @@
         (def (assq backend nnoo-definition-alist))
         (parents (nth 1 def)))
     (unless def
-      (error "%s belongs to a backend that hasn't been declared." var))
+      (error "%s belongs to a backend that hasn't been declared" var))
     (setcar (nthcdr 2 def)
            (delq (assq var (nth 2 def)) (nth 2 def)))
     (setcar (nthcdr 2 def)