sqrtminusone/elfeed-sync
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/elfeed-sync.git synced 2025-12-10 20:13:02 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: ttrss-missing-ids

Browse source
This commit is contained in:
Pavel Korytov 2022-05-29 13:05:06 +03:00
parent 8db44efab9
commit 32e0bbfaf5
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
elfeed-sync.el
View file

@ -431,7 +431,8 @@ It has to be put to the `:ids-missing-tt-rss' value in the
Look at `elfeed-sync--do-sync' for the details."
(let (all-missing)
(maphash (lambda (ttrss-id ttrss-entry)
(maphash (lambda (_key ttrss-entry)
(let ((ttrss-id (alist-get 'id ttrss-entry)))
(unless (gethash ttrss-id ttrss-entries-processed)
(push ttrss-entry all-missing)
(when-let ((ttrss-time (elfeed-sync--ttrss-get-updated-time
@ -447,7 +448,7 @@ Look at `elfeed-sync--do-sync' for the details."
elfeed-sync--state)
elfeed-sync--start-time))
(alist-get :ids-missing-tt-rss
elfeed-sync--state))))))
elfeed-sync--state)))))))
ttrss-entries)
all-missing))
@ -754,7 +755,7 @@ FUN and ARGS are passed to `apply'."
(let ((header (apply fun args))
(last-sync-time (alist-get :last-sync-time elfeed-sync--state)))
(if last-sync-time
(format "%s %s, Synced at"
(format "%s, Synced at %s"
header
(format-time-string
"%Y-%m-%d %H:%M:%S"