 		(re-search-forward ledger-posting-regex)
 		(if (match-string 1)
 				(save-match-data (setq state (ledger-state-from-string (s-trim (match-string 1))))))
-;;; FIX THIS.  Pull the COND to the outer level and put the fontify-set-face inside.  It will be clearer
 		(ledger-fontify-set-face (list (match-beginning 0) (match-end 2))
 														 (cond ((eq state 'cleared)
 																		'ledger-font-posting-account-cleared-face)

  :group 'ledger)

(defun ledger-fontify-buffer-part (&optional beg end len)
	;; (message (concat "ledger-fontify-buffer-part: ("
	;; 										 (int-to-string beg) ", "
	;; 										 (int-to-string end)
	;; 										 ")"))
	(save-excursion
		(unless beg (setq beg (point-min)))
		(unless end (setq end (point-max)))

		(ledger-fontify-set-face (list (match-beginning 4) (match-end 4))
														 (cond ((eq state 'cleared)
																		'ledger-font-posting-amount-cleared-face)
																	 ((eq state 'pending)
																		'ledger-font-posting-amount-pending-face)
																	 (t
																		'ledger-font-posting-amount-face)))
