   ;;;;;;;; TODO: easier to expose a hunk which was made invisible by mistake
   (let ((changeset (darcsum-changeset-at-point t)))
     (let ((any-visible
-	   (darcsum-applicable-p
-	    changeset
-	    (function
-	     (lambda (d f change)
-	       (darcsum-item-visible-p (darcsum-change-item change)))))))
-	(darcsum-apply-to-changeset
-	 changeset
-	 (function
-	  (lambda (dir file change)
-	    (let ((item (darcsum-change-item change)))
-	      (if any-visible
-		  (setcar change (darcsum-invisible-item item))
-		(if (listp (car change))
-		    (setcar change (list (darcsum-visible-item item)))
-		  (setcar change (darcsum-visible-item item))))))))))
+           (darcsum-applicable-p
+            changeset
+            (function
+             (lambda (d f change)
+               (darcsum-item-visible-p (darcsum-change-item change)))))))
+        (darcsum-apply-to-changeset
+         changeset
+         (function
+          (lambda (dir file change)
+            (let ((item (darcsum-change-item change)))
+              (if any-visible
+                  (setcar change (darcsum-invisible-item item))
+                (if (listp (car change))
+                    (setcar change (list (darcsum-visible-item item)))
+                  (setcar change (darcsum-visible-item item))))))))))
   (darcsum-refresh))
 
 (defun darcsum-refresh ()


(defun darcsum-change-< (l r)
  (setq l (car l)
	l (if (listp l) (car l) l)
	l (darcsum-visible-item l)
	l (or (cdr (assq l darcsum-item-numeric-alist)) l))
  (setq r (car r)
	r (if (listp r) (car r) r)
	r (darcsum-visible-item r)
	r (or (cdr (assq r darcsum-item-numeric-alist)) r))
  (< l r))

(defun darcsum-add-changeset (data changeset)


(defvar darcsum-data nil)
(defvar darcsum-look-for-adds nil)
(defvar darcsum-show-context nil)
(defvar pre-darcsum-ediff-window-configuration nil)

;;make buffer-local variable storing old window configuration, since "let" bindings die before ediff buffers are killed
(make-variable-buffer-local 'pre-darcsum-ediff-window-configuration)

(defface darcsum-header-face
  '((((class color) (background dark))
