                            (xml-query '(date *) item))))
             (make-elfeed-entry :title (elfeed-cleanup title)
                                :id (elfeed-cleanup id) :link link
+                               :tags (copy-seq elfeed-initial-tags)
                                :date (elfeed-rfc3339 date) :content nil)))))
 
 (defun elfeed-update-feed (url)

(defvar elfeed-db (make-hash-table :test 'equal)
  "The core database for elfeed.")

(defstruct elfeed-feed
  "A web feed, contains elfeed-entry structs."
  title url entries)

(defstruct elfeed-entry
  "A single entry from a feed. Conceptually modeled after Atom."
  title id link date content tags feed)

(defun elfeed-db-get (url)
  "Get/create the table for URL."

                           (xml-query '(date *) entry))))
            (make-elfeed-entry :title (elfeed-cleanup title) :feed feed
                               :id (elfeed-cleanup id) :link link
                               :tags (copy-seq elfeed-initial-tags)
                               :date (elfeed-rfc3339 date) :content nil)))))

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