     (beginning-of-line)
     (ledger-display-balance)))
 
-(defun ledger-reconcile-new-account (account)
-  (interactive "sAccount to reconcile: ")
-  (set (make-local-variable 'ledger-acct) account)
-  (let ((buf (current-buffer)))
-    (if ledger-fold-on-reconcile
-	(ledger-occur-change-regex account ledger-buf))
-    (set-buffer buf)
-    (ledger-reconcile-refresh)))
-
 (defun ledger-reconcile-refresh ()
   (interactive)
   (let ((inhibit-read-only t)

     (define-key map [menu-bar ldg-recon-menu sep3] '("--"))
     (define-key map [menu-bar ldg-recon-menu bal] '("Show Cleared Balance" . ledger-display-balance))
     (define-key map [menu-bar ldg-recon-menu sep4] '("--"))
     (define-key map [menu-bar ldg-recon-menu rna] '("Reconcile New Account" . ledger-reconcile-new-account))
     (define-key map [menu-bar ldg-recon-menu ref] '("Refresh" . ledger-reconcile-refresh))
     (define-key map [menu-bar ldg-recon-menu sav] '("Save" . ledger-reconcile-save))

     (use-local-map map)
     
     (add-hook 'kill-buffer-hook 'ledger-reconcile-quit-cleanup nil t)))

  (if (bufferp (car where))
      (car where)
      (error "buffer not set")))

(defun ledger-reconcile-toggle ()
  (interactive)
