   (if (and evernote-note-guid (buffer-modified-p))
       (evernote-command-with-auth
        (lambda ()
-         (progn
-           (evernote-command-update-note
-            (current-buffer)
-            evernote-note-guid
-            evernote-note-name
-            evernote-note-tags
-            evernote-note-edit-mode)
-           (set-buffer-modified-p nil))))
+         (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)")))
 
 

        "Tags used for search (comma separated form. default search all tags):"
        (evernote-get-tag-alist
         (evernote-command-get-tag-list))
        nil t))))))


(defun evernote-search-notes ()

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


(defun evernote-rename-note ()
