From c6dd1dea7d69a3aebac0dc525de17f2bb89c6b66 Mon Sep 17 00:00:00 2001 From: dickmao Date: Wed, 25 Sep 2019 08:33:26 -0400 Subject: [PATCH] Do not change subscribe level if already subscribed Closes #4 --- nnhackernews.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/nnhackernews.el b/nnhackernews.el index 8401395..54688cd 100644 --- a/nnhackernews.el +++ b/nnhackernews.el @@ -1147,7 +1147,8 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out (mapc (lambda (group) (let ((full-name (gnus-group-full-name group `("nnhackernews" ,(or server ""))))) (gnus-activate-group full-name t) - (gnus-group-unsubscribe-group full-name gnus-level-default-subscribed t)) + (when (> (gnus-group-level full-name) gnus-level-subscribed) + (gnus-group-unsubscribe-group full-name gnus-level-default-subscribed t))) (insert (format "%s %d 1 y\n" group (length (nnhackernews-get-headers group))))) `(,nnhackernews--group-ask -- 2.34.1