From a29b64a1770c31f664c7cd7ffe4f04b1b702e228 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 30 Jan 2021 13:52:14 -0500 Subject: Dynbind `number` in `gnus-group-insert-group-line` --- lisp/gnus/gnus-group.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 76ba653e418..e408b702585 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1505,7 +1505,10 @@ if it is a string, only list groups matching REGEXP." (defun gnus-group-insert-group-line (group level marked number gnus-tmp-method) "Insert a group line in the group buffer." - (let* ((gnus-tmp-level level) + (with-suppressed-warnings ((lexical number)) + (defvar number)) + (let* ((number number) ;FIXME: Used in `gnus-group-line-format-alist'. + (gnus-tmp-level level) (gnus-tmp-marked marked) (gnus-tmp-group group) (gnus-tmp-method -- cgit v1.2.1