   (if (called-interactively-p) (enh-clear-onmem-cache))
   (unwind-protect
       (let* ((cache (enh-password-cache-load))
-	     (usernames (mapcar #'car cache))
-	     (username (or evernote-username
-			   (read-string "Evernote user name:"
-					(car usernames) 'usernames)))
-	     (cache-passwd (enutil-aget username cache)))
-	(unless (and cache-passwd
-		     (eq (catch 'error 
-			   (progn 
-			     (enh-command-login username cache-passwd)
-			     t))
-			 t))
-	  (let* ((passwd (read-passwd "Passwd:")))
-	    (enh-command-login username passwd)
-	    (setq evernote-username username)
-	    (enh-password-cache-save (enutil-aset username cache passwd)))))
+             (usernames (mapcar #'car cache))
+             (username (or evernote-username
+                           (read-string "Evernote user name:"
+                                        (car usernames) 'usernames)))
+             (cache-passwd (enutil-aget username cache)))
+        (unless (and cache-passwd
+                     (eq (catch 'error 
+                           (progn 
+                             (enh-command-login username cache-passwd)
+                             t))
+                         t))
+          (let* ((passwd (read-passwd "Passwd:")))
+            (enh-command-login username passwd)
+            (setq evernote-username username)
+            (enh-password-cache-save (enutil-aset username cache passwd)))))
     (enh-password-cache-close)))
 
 

(defun enh-command-delete-note (guid)
  "Issue deletenote command specified by the guid, tags and the edit mode."
  (enh-command-issue
     (format ":class => %s, :guid => %s"
             (enutil-to-ruby-string "DeleteNoteCommand")
             (enutil-to-ruby-string guid))))


(defun enh-command-get-search-attrs ()

  (when evernote-password-cache
    (with-current-buffer (get-buffer-create enh-password-cache-buffer)
      (write-region (prin1-to-string user-password) nil
                    enh-password-cache-file))))


(defun enh-password-cache-close ()
