From 5c5894bddf80014f7cd15a566aa0750f61dcbfd8 Mon Sep 17 00:00:00 2001 From: dickmao Date: Mon, 30 Dec 2019 16:25:10 -0500 Subject: [PATCH 1/2] emacs28: gnus-info-set-read --- nnhackernews.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/nnhackernews.el b/nnhackernews.el index d132a03..58b243d 100644 --- a/nnhackernews.el +++ b/nnhackernews.el @@ -1035,7 +1035,7 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out (mapc (lambda (group) (-when-let* ((full-name (gnus-group-full-name group "nnhackernews:")) (info (gnus-get-info full-name))) - (gnus-info-set-read info nil) + (setf (gnus-info-read info) nil) (gnus-set-info full-name info))) `(,nnhackernews--group-ask ,nnhackernews--group-show -- 2.34.1 From 15195cc8fbff9d242e5eac5cc7283347420d365d Mon Sep 17 00:00:00 2001 From: dickmao Date: Tue, 31 Dec 2019 00:35:32 -0500 Subject: [PATCH 2/2] avoid retrieving HN three times on startup --- nnhackernews.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/nnhackernews.el b/nnhackernews.el index 58b243d..108ab6c 100644 --- a/nnhackernews.el +++ b/nnhackernews.el @@ -1552,15 +1552,16 @@ Written by John Wiegley (https://github.com/jwiegley/dot-emacs).") ,nnhackernews--group-show ,nnhackernews--group-job ,nnhackernews--group-stories))))) - '(gnus-started-hook gnus-after-getting-new-news-hook)) - (add-hook 'gnus-started-hook - (lambda () (mapc (lambda (group) - (nnhackernews--mark-scored-as-read group)) - `(,nnhackernews--group-ask - ,nnhackernews--group-show - ,nnhackernews--group-job - ,nnhackernews--group-stories))) - t)) + '(gnus-after-getting-new-news-hook)) + ;; (add-hook 'gnus-started-hook + ;; (lambda () (mapc (lambda (group) + ;; (nnhackernews--mark-scored-as-read group)) + ;; `(,nnhackernews--group-ask + ;; ,nnhackernews--group-show + ;; ,nnhackernews--group-job + ;; ,nnhackernews--group-stories))) + ;; t) + ) ;; "Can't figure out hook that can remove itself (quine conundrum)" (add-function :around (symbol-function 'gnus-summary-exit) -- 2.34.1