Do not update feed on creation (prevent period reset)

chatikbot.lisp

@@ -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))))