                                            (enutil-aget 'name
                                                         (enh-get-tag-attr guid)))
                                  "All notes")
-                               note-attrs))))
+                               note-attrs
+                               `(enh-command-get-note-attrs-from-notebook-and-tag-guids
+                                 nil ,(if guid
+                                          (list guid)
+                                        nil))))))
 
 
 (defun enh-browsing-open-search (widget &rest ignored)

       (enh-browsing-push-page
        (enh-browsing-create-page 'note-list
                                  (format "Query Result of: %s" query)
                                  note-attrs)
        t)))))



  (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
