   (when enh-browsing-page-widget-root
     (widget-delete enh-browsing-page-widget-root)
     (setq enh-browsing-page-widget-root nil))
+  (when (and (null enh-browsing-page-data)
+             enh-browsing-page-data-refresh-closure)
+    (let (note-attrs
+          (attrs-func (car enh-browsing-page-data-refresh-closure))
+          (attrs-args (cdr enh-browsing-page-data-refresh-closure)))
+      (setq note-attrs (apply attrs-func attrs-args))
+      (setq enh-browsing-page-data note-attrs)))
   (let ((note-attrs enh-browsing-page-data)
         (note-list nil))
     (mapc

                                    (format "Notes with tag: %s"
                                            (enh-tag-guids-to-comma-separated-names tag-guids))
                                  "All notes")
                                note-attrs)
      t))))



      (enh-browsing-create-page 'note-list
                                (format "Query Result of Saved Search: %s"
                                        (enutil-aget 'name search-attr))
                                note-attrs
                                `(enh-command-get-note-attrs-from-query
                                  ,(enutil-aget 'query search-attr)))
      t))))


