dickmao
/
nnhackernews
Protected
0
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Dev #16

Merged
dickmao merged 2 commits from dev into master 2020-01-02 18:57:20 +00:00
Conversation 0 Commits 2 Files Changed 1
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
nnhackernews.el
View File

@ -1035,7 +1035,7 @@ Optionally provide STATIC-MAX-ITEM and STATIC-NEWSTORIES to prevent querying out
(mapc (lambda (group) (mapc (lambda (group)
(-when-let* ((full-name (gnus-group-full-name group "nnhackernews:")) (-when-let* ((full-name (gnus-group-full-name group "nnhackernews:"))
(info (gnus-get-info full-name))) (info (gnus-get-info full-name)))
(gnus-info-set-read info nil) (setf (gnus-info-read info) nil)
(gnus-set-info full-name info))) (gnus-set-info full-name info)))
`(,nnhackernews--group-ask `(,nnhackernews--group-ask
,nnhackernews--group-show ,nnhackernews--group-show
@ -1552,15 +1552,16 @@ Written by John Wiegley (https://github.com/jwiegley/dot-emacs).")
,nnhackernews--group-show ,nnhackernews--group-show
,nnhackernews--group-job ,nnhackernews--group-job
,nnhackernews--group-stories))))) ,nnhackernews--group-stories)))))
'(gnus-started-hook gnus-after-getting-new-news-hook)) '(gnus-after-getting-new-news-hook))
(add-hook 'gnus-started-hook ;; (add-hook 'gnus-started-hook
(lambda () (mapc (lambda (group) ;; (lambda () (mapc (lambda (group)
(nnhackernews--mark-scored-as-read group)) ;; (nnhackernews--mark-scored-as-read group))
`(,nnhackernews--group-ask ;; `(,nnhackernews--group-ask
,nnhackernews--group-show ;; ,nnhackernews--group-show
,nnhackernews--group-job ;; ,nnhackernews--group-job
,nnhackernews--group-stories))) ;; ,nnhackernews--group-stories)))
t)) ;; t)
)
;; "Can't figure out hook that can remove itself (quine conundrum)" ;; "Can't figure out hook that can remove itself (quine conundrum)"
(add-function :around (symbol-function 'gnus-summary-exit) (add-function :around (symbol-function 'gnus-summary-exit)