From: Eric Abrahamsen Date: Thu, 18 Jul 2019 03:34:48 +0000 (-0700) Subject: Fix indexing of Gnus entry in gnus-group-unsubscribe-group X-Git-Tag: emacs-27.0.90~1868 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b10464c6f92f4102e1c4a055c2683c1ab1b98bc6;p=emacs.git 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. --- 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)))