 
 (defun elfeed-db-set-update-time ()
   "Update the database last-update time."
-  (plist-put elfeed-db :last-update (float-time))
+  (setf elfeed-db (plist-put elfeed-db :last-update (float-time)))
   (run-hooks 'elfeed-db-update-hook))
 
 (defun elfeed-db-add (entries)

  (let ((index (expand-file-name "index" elfeed-db-directory))
        (enable-local-variables nil)) ; don't set local variables from index!
    (if (not (file-exists-p index))
        (let ((db (setf elfeed-db (list :version elfeed-db-version))))
          (plist-put db :feeds (make-hash-table :test 'equal))
          (plist-put db :entries (make-hash-table :test 'equal))
          ;; Compiler will warn about this (bug#15327):
          (plist-put db :index (avl-tree-create #'elfeed-db-compare)))
      (with-current-buffer (find-file-noselect index :nowarn)
        (goto-char (point-min))
        (setf elfeed-db (read (current-buffer)))

          (setf (elfeed-entry-id entry) new-id
                (gethash new-id elfeed-db-entries) entry)
          (avl-tree-enter elfeed-db-index new-id)))))
  (setf elfeed-db (plist-put elfeed-db :version elfeed-db-version))
  elfeed-db-version)

(defun elfeed-db-load ()
