Do not change subscribe level if already subscribed #5

Merged
dickmao merged 1 commits from dev into master 2019-09-25 12:39:33 +00:00
1 changed files with 2 additions and 1 deletions

View File

@ -1147,7 +1147,8 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out
(mapc (lambda (group) (mapc (lambda (group)
(let ((full-name (gnus-group-full-name group `("nnhackernews" ,(or server ""))))) (let ((full-name (gnus-group-full-name group `("nnhackernews" ,(or server "")))))
(gnus-activate-group full-name t) (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 (insert (format "%s %d 1 y\n" group
(length (nnhackernews-get-headers group))))) (length (nnhackernews-get-headers group)))))
`(,nnhackernews--group-ask `(,nnhackernews--group-ask