[Emacs-diffs] feature/gnus-select bbd2b1f 2/3: ; Silence byte-compiler

[Andrew G Cohen]

branch: feature/gnus-select
commit bbd2b1fbeebfff9e3608d6132a697c25ca1bff2d
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>

    ; 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.
---
 lisp/gnus/nnir.el     |  2 ++
 lisp/gnus/nnselect.el | 21 ++++++++++++---------
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 35ec292..727df8e 100644
--- 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 4ba2be6..560468e 100644
--- 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