; Silence byte-compiler

* lisp/gnus/nnir.el: Require gnus.
(gnus-request-list): Autoload.
* lisp/gnus/nnselect.el: Require gnus-art.
(nnselect-request-set-mark): Use cl-destructuring-bind.
(nnir-run-query): Declare function.
(nnselect-request-thread): Use cl-incf.
(nnselect-push-info): Use cl-decf.

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 35ec2921458c55d150b1ddb1a63102d7f891ab5b..727df8ed45b5af70290a6bea53119542fcb3d64a 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -158,6 +158,7 @@
 ;;; Setup:
 
 (eval-when-compile (require 'cl-lib))
+(require 'gnus)
 
 ;;; Internal Variables:
 
@@ -1324,6 +1325,7 @@ environment unless `not-global' is non-nil."
           ((and (not not-global) (boundp key)) (symbol-value key))
           (t nil))))
 
+(autoload 'gnus-request-list "gnus-int")
 
 (defun nnir-get-active (srv)
   (let ((method (gnus-server-to-method srv))

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 4ba2be69d1c72d3ef4f36a1ec96193892146abd2..560468e2f7f0cf967054597da8d036a522495672 100644 (file)
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -47,11 +47,14 @@
 ;;; Setup:
 
 
-(require 'nnoo)
-(require 'gnus-group)
-(require 'message)
-(require 'gnus-util)
-(require 'gnus-sum)
+(require 'gnus-art)
+
+
+;(require 'nnoo)
+;(require 'gnus-group)
+;(require 'message)
+;(require 'gnus-util)
+;(require 'gnus-sum)
 
 (eval-when-compile (require 'cl-lib))
 
@@ -366,7 +369,7 @@ If this variable is nil, or if the provided function returns nil,
    (nnselect-categorize
     (cl-mapcan
      (lambda (act)
-       (destructuring-bind (range action marks) act
+       (cl-destructuring-bind (range action marks) act
         (mapcar
          (lambda (artgroup)
            (list (car artgroup)
@@ -411,7 +414,7 @@ If this variable is nil, or if the provided function returns nil,
                          (car art)))  artids))))))))
   (gnus-set-active group (cons 1 (nnselect-artlist-length nnselect-artlist))))
 
-
+(declare-function nnir-run-query "nnir" (specs))
 (deffoo nnselect-request-thread (header &optional group server)
   (let ((group (nnselect-possibly-change-group group server))
        (artgroup (nnselect-article-group
@@ -463,7 +466,7 @@ If this variable is nil, or if the provided function returns nil,
                   (push (1+ seq) old-arts)
                 (setq nnselect-artlist
                       (vconcat nnselect-artlist (vector article)))
-                (incf last)))
+                (cl-incf last)))
           new-nnselect-artlist)
          (setq headers
                (gnus-fetch-headers
@@ -697,7 +700,7 @@ originating groups."
          (let ((i 5))
            (while (and (> i 2)
                        (not (nth i group-info)))
-             (when (nthcdr (decf i) group-info)
+             (when (nthcdr (cl-decf i) group-info)
                (setcdr (nthcdr i group-info) nil))))
 
          ;; update read and unread