|
@@ -37,7 +37,7 @@
|
|
|
|
|
|
|
|
(defun refresh-feed (feed &optional (skip-p #'not))
|
|
(defun refresh-feed (feed &optional (skip-p #'not))
|
|
|
(let* ((items
|
|
(let* ((items
|
|
|
- (loop for item in (fetch-feed-items feed)
|
|
|
|
|
|
|
+ (loop for item in (ignore-errors (fetch-feed-items feed))
|
|
|
unless (funcall skip-p item)
|
|
unless (funcall skip-p item)
|
|
|
collect item))
|
|
collect item))
|
|
|
(new-period (adjust-period (feed-period feed) (length items))))
|
|
(new-period (adjust-period (feed-period feed) (length items))))
|
