    (lambda ()
      (evernote-command-create-search
       (read-string "Saved Search Name:")
-      (read-string "Query:")))))
+      (read-string "Query:"))
+     t)))
 
 
 (defun evernote-edit-search ()

                                     name
                                     tags
                                     edit-mode)
       (setq evernote-note-guid (evernote-eval-command-result)
             evernote-note-name name
             evernote-note-tags tags
             evernote-note-edit-mode edit-mode)
       (evernote-mode)
       (evernote-update-mode-line)
       (set-buffer-modified-p nil)))))


(defun evernote-write-note ()

  (if (and evernote-note-guid (buffer-modified-p))
      (evernote-command-with-auth
       (lambda ()
         (evernote-command-update-note
          (current-buffer)
          evernote-note-guid
          evernote-note-name
          evernote-note-tags
          evernote-note-edit-mode)
         (set-buffer-modified-p nil)
         t))
    (message "(No changes need to be saved)")))


