                                :id full-id
                                :feed-id feed-id
                                :link (elfeed-cleanup link)
-                               :tags (elfeed-normalize-tags autotags elfeed-initial-tags)
+                               :tags tags
                                :date (if (and original (null date))
                                          (elfeed-entry-date original)
                                        (elfeed-float-time date))
                                :enclosures enclosures
                                :content description
                                :content-type 'html)))
-               (cl-loop for hook in elfeed-new-entry-parse-hook
-                        do (funcall hook :rss item db-entry))
+               (dolist (hook elfeed-new-entry-parse-hook)
+                 (funcall hook :rss item db-entry))
                db-entry))))
 
 (defun elfeed-entries-from-rss1.0 (url xml)

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


                               :feed-id feed-id
                               :id (cons feed-id (elfeed-cleanup id))
                               :link (elfeed-cleanup link)
                               :tags tags
                               :date (elfeed-float-time date)
                               :content content
                               :enclosures enclosures
                               :content-type content-type)))
               (dolist (hook elfeed-new-entry-parse-hook)
                 (funcall hook :atom entry db-entry))
               db-entry))))

(defun elfeed-entries-from-rss (url xml)
