            (setq evernote-note-edit-mode
                  (evernote-read-edit-mode evernote-note-edit-mode))
            (evernote-update-mode-line)
-           (set-buffer-modified-p t))))))
+           (set-buffer-modified-p t)))
+     t)))
 
 
 (defun evernote-rename-note ()

      (pop-to-buffer buf))))


(defun evernote-create-note-buffer (guid name edit-mode tags content)
  "Create new buffer for the note"
  (save-excursion
    (let ((buf (generate-new-buffer name)))
      (set-buffer buf)
      (insert content)
      (setq evernote-note-guid guid
            evernote-note-name name
            evernote-note-edit-mode edit-mode
            evernote-note-tags tags)
      (evernote-mode)
      (goto-char (point-min))
      (evernote-update-mode-line)
      (set-buffer-modified-p nil)
      (pop-to-buffer buf))))


     (evernote-open-note-common
      (evernote-command-get-note-list-from-query
       (read-string "Query:"))
      t)
     t)))


(defun evernote-do-saved-search ()
