                (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)

        (evernote-mode note-guid)
        (goto-char (point-min))
        (set-buffer-modified-p nil)
        (pop-to-buffer buf)
        (enh-browsing-reflesh)))))


(defun enh-base-create-note-common (default-note-name

                                         tag-names
                                         edit-mode))
          (setq content (buffer-substring (point-min) (point-max))))))
    (enh-update-note-and-new-tag-attrs note-attr)
    (let ((buf nil))
      (save-excursion
        (if create-new-buffer
