                     (id (or guid link (elfeed-generate-id description)))
                     (full-id (cons feed-id (elfeed-cleanup id)))
                     (original (elfeed-db-get-entry full-id))
+                    (tags (elfeed-normalize-tags autotags elfeed-initial-tags))
                     (etags (xml-query-all '(enclosure) item))
                     (enclosures
                      (cl-loop for enclosure in etags

  (interactive)
  (let ((fails (mapcar #'url-queue-url elfeed-connections)))
    (when fails
      (elfeed-log 'warn "Elfeed aborted feeds: %s" (mapconcat #'identity fails " ")))
    (setf url-queue nil))
  (elfeed-search-update :force))


                    (id (or link (elfeed-generate-id description)))
                    (full-id (cons feed-id (elfeed-cleanup id)))
                    (original (elfeed-db-get-entry full-id))
                    (tags (elfeed-normalize-tags autotags elfeed-initial-tags))
                    (db-entry (elfeed-entry--create
                               :title (elfeed-cleanup title)
                               :id full-id
                               :feed-id feed-id
                               :link (elfeed-cleanup link)
                               :tags tags
                               :date (if (and original (null date))
                                         (elfeed-entry-date original)
                                       (elfeed-float-time date))
                               :content description
                               :content-type 'html)))
               (dolist (hook elfeed-new-entry-parse-hook)
                 (funcall hook :rss1.0 item db-entry))
               db-entry))))

(defun elfeed-feed-list ()
