Do not change subscribe level if already subscribed #5
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue