                (unless (gethash guid enh-tag-info)
                  (throw 'result t)))
              tag-guids))
-        (progn
           (enh-set-tag-attrs
-           (enh-command-get-tag-attrs))
-          (enh-browsing-reflesh)))))
-
-
-(defun enh-update-tag-attrs-external (tag-attrs)
-  (enh-set-tag-attrs tag-attrs)
-  (enh-browsing-reflesh))
-
-
-(defun enh-update-search-attrs-external (search-attrs)
-  (enh-set-search-attrs search-attrs)
-  (enh-browsing-reflesh))
-
-
-(defun enh-update-search-attr (search-attr)
-  (enh-set-search-attr search-attr)
-  (enh-browsing-reflesh))
+           (enh-command-get-tag-attrs)))))
 
 
 (defun enh-tag-guids-to-comma-separated-names (tag-guids &optional maxlen)

;; Helper functions for evernote-browsing-mode (enh-browsing-xxx)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar enh-browsing-page-list nil
  "Page data list of evernote browsing mode.")
(make-variable-buffer-local 'enh-browsing-page-list)

(defvar enh-browsing-current-page nil
  "Current page data of evernote browsing mode.")
(make-variable-buffer-local 'enh-browsing-current-page)


(defun enh-browsing-open-tag (widget &rest ignored)
  "Open a tag in browsing mode"
  (let* ((guid (widget-value widget))
         (note-attrs
          (enh-command-get-note-attrs-from-tag-guids
           (if guid
               (list guid)
             nil))))
    (enh-set-note-attrs note-attrs)
    (enh-browsing-push-page
     (enh-browsing-create-page 'note-list
                               (format "Notes with tag %s"

     (let ((note-attrs
            (enh-command-get-note-attrs-from-query
             query)))
       (enh-set-note-attrs note-attrs)
       (enh-base-open-note-common (enh-base-read-note-attr note-attrs))))))


