From 32e0bbfaf586eb067fe16da776b43a5b9256e80d Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Sun, 29 May 2022 13:05:06 +0300 Subject: [PATCH] fix: ttrss-missing-ids --- elfeed-sync.el | 37 +++++++++++++++++++------------------ 1 file changed, 19 insertions(+), 18 deletions(-) diff --git a/elfeed-sync.el b/elfeed-sync.el index adb2719..a4839ce 100644 --- a/elfeed-sync.el +++ b/elfeed-sync.el @@ -431,23 +431,24 @@ 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) - (unless (gethash ttrss-id ttrss-entries-processed) - (push ttrss-entry all-missing) - (when-let ((ttrss-time (elfeed-sync--ttrss-get-updated-time - ttrss-entry))) - (if-let ((old-val (gethash ttrss-id - (alist-get :ids-missing-tt-rss - elfeed-sync--state))) - (is-equal (= (car old-val) ttrss-time))) - t ;; do nothing - (puthash ttrss-id (cons ttrss-time - (or - (alist-get :last-sync-time - elfeed-sync--state) - elfeed-sync--start-time)) - (alist-get :ids-missing-tt-rss - elfeed-sync--state)))))) + (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 + ttrss-entry))) + (if-let ((old-val (gethash ttrss-id + (alist-get :ids-missing-tt-rss + elfeed-sync--state))) + (is-equal (= (car old-val) ttrss-time))) + t ;; do nothing + (puthash ttrss-id (cons ttrss-time + (or + (alist-get :last-sync-time + elfeed-sync--state) + elfeed-sync--start-time)) + (alist-get :ids-missing-tt-rss + 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"