From d2341eb0fb8139f92955c1462ee7b965befdccee Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 31 Jan 2021 17:32:11 -0500 Subject: * lisp/gnus/gnus-group.el: Defvar all the `gnus-tmp-*` vars These were collected via sed -n -e 's/.*\(gnus-tmp-[^ ()]*\).*/(defvar \1)/p' \ lisp/gnus/gnus-group.el --- lisp/gnus/gnus-group.el | 30 +++++++++++++++++++----------- 1 file changed, 19 insertions(+), 11 deletions(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index eec64fd217a..3661b6376df 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -477,23 +477,31 @@ simple manner." (defvar gnus-group-edit-buffer nil) +(defvar gnus-tmp-active) +(defvar gnus-tmp-colon) +(defvar gnus-tmp-comment) (defvar gnus-tmp-group) +(defvar gnus-tmp-group-icon) +(defvar gnus-tmp-header) (defvar gnus-tmp-level) (defvar gnus-tmp-marked) +(defvar gnus-tmp-marked-mark) +(defvar gnus-tmp-method) +(defvar gnus-tmp-moderated) +(defvar gnus-tmp-moderated-string) +(defvar gnus-tmp-newsgroup-description) (defvar gnus-tmp-news-method) -(defvar gnus-tmp-colon) +(defvar gnus-tmp-news-method-string) (defvar gnus-tmp-news-server) -(defvar gnus-tmp-header) +(defvar gnus-tmp-number-of-read) +(defvar gnus-tmp-number-of-unread) +(defvar gnus-tmp-number-total) (defvar gnus-tmp-process-marked) -(defvar gnus-tmp-summary-live) -(defvar gnus-tmp-news-method-string) -(defvar gnus-tmp-group-icon) -(defvar gnus-tmp-moderated-string) -(defvar gnus-tmp-newsgroup-description) -(defvar gnus-tmp-comment) (defvar gnus-tmp-qualified-group) (defvar gnus-tmp-subscribed) -(defvar gnus-tmp-number-of-read) +(defvar gnus-tmp-summary-live) +(defvar gnus-tmp-user-defined) + (defvar gnus-inhibit-demon) (defvar gnus-pick-mode) (defvar gnus-tmp-marked-mark) @@ -1503,7 +1511,7 @@ if it is a string, only list groups matching REGEXP." (gnus-group-get-new-news 0)))) :type 'boolean) -(defun gnus-group-insert-group-line (group level marked number gnus-tmp-method) +(defun gnus-group-insert-group-line (group level marked number method) "Insert a group line in the group buffer." (with-suppressed-warnings ((lexical number)) (defvar number)) ;FIXME: Used in `gnus-group-line-format-alist'. @@ -1512,7 +1520,7 @@ if it is a string, only list groups matching REGEXP." (gnus-tmp-marked marked) (gnus-tmp-group group) (gnus-tmp-method - (gnus-server-get-method gnus-tmp-group gnus-tmp-method)) + (gnus-server-get-method gnus-tmp-group method)) (gnus-tmp-active (gnus-active gnus-tmp-group)) (gnus-tmp-number-total (if gnus-tmp-active -- cgit v1.2.3