[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select2 40f356a 02/32: ; Silence byte-compile
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select2 40f356a 02/32: ; Silence byte-compiler |
Date: |
Sun, 16 Dec 2018 06:54:00 -0500 (EST) |
branch: feature/gnus-select2
commit 40f356a303374e3f36b73fd43feb8bd8c787ba2a
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 d35d7d1..a87e639 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:
@@ -1282,6 +1283,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
- [Emacs-diffs] branch feature/gnus-select2 created (now fe5f3c2), Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 94fedc1 03/32: ; Clean up parameter input for nnselect groups, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 40f356a 02/32: ; Silence byte-compiler,
Andrew G Cohen <=
- [Emacs-diffs] feature/gnus-select2 a9cb4e9 13/32: Use fetch-old-headers group parameter in nnselect, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 0df0f5a 14/32: Remove obsolete variable nnselect-summary-line-format, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 f3fd674 06/32: Restore article retrieval by message-id in nnselect, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 b51a495 07/32: Restore article retrieval by message-id in nnselect, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 8e7635b 05/32: Fix requesting sparse articles in gnus, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 5be0d2a 12/32: Disable nnselect-server-opened check, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 f43d8d8 23/32: * lisp/gnus/nnselect.el (nnselect-request-group): Don't close group., Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 c1c5b4b 08/32: Introduce summary-local variable gnus-newsgroup-selection, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 e5ea691 17/32: Use gnus-newsgroup-selection instead of nnselect-artlist, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 1388539 11/32: Improve nnselect-request-article, Andrew G Cohen, 2018/12/16