|
|
@@ -363,11 +363,9 @@
|
|
|
:disable-web-preview 1))
|
|
|
|
|
|
(defun %fetch-new-items (feed)
|
|
|
- (prog1
|
|
|
- (loop for item in (refresh-feed feed #'db-rss-item-exists)
|
|
|
- do (db-rss-add-item item)
|
|
|
- collect item)
|
|
|
- (db-rss-update-feed feed)))
|
|
|
+ (loop for item in (refresh-feed feed #'db-rss-item-exists)
|
|
|
+ do (db-rss-add-item item)
|
|
|
+ collect item))
|
|
|
|
|
|
(defun %get-feed (url)
|
|
|
(when url
|
|
|
@@ -431,7 +429,8 @@
|
|
|
(dolist (chat-id (db-rss-get-feed-chats feed))
|
|
|
(telegram-send-message chat-id
|
|
|
(format-feed-item item)
|
|
|
- :disable-web-preview 1))))
|
|
|
+ :disable-web-preview 1)))
|
|
|
+ (db-rss-update-feed feed)) ;; Update next fetch and period
|
|
|
(error (e) (log:error e))))
|
|
|
|
|
|
|
