From b10464c6f92f4102e1c4a055c2683c1ab1b98bc6 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Wed, 17 Jul 2019 20:34:48 -0700 Subject: [PATCH] Fix indexing of Gnus entry in gnus-group-unsubscribe-group * lisp/gnus/gnus-group.el (gnus-group-unsubscribe-group): Hopefully that's the last of these. --- lisp/gnus/gnus-group.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index bdc8c38b1bb..299ebdec50a 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -3814,7 +3814,7 @@ group line." (newsrc ;; Toggle subscription flag. (gnus-group-change-level - newsrc (if level level (if (<= (gnus-info-level (nth 2 newsrc)) + newsrc (if level level (if (<= (gnus-info-level (nth 1 newsrc)) gnus-level-subscribed) (1+ gnus-level-subscribed) gnus-level-default-subscribed))) -- 2.39.2