 	  (kill-buffer (current-buffer))))
 
        ((looking-at "\n*Darcs needs to know what name")
-	(let* ((default-mail (concat user-full-name " <" user-mail-address ">"))
+	(let* ((default-mail (concat user-full-name
+				     " <" user-mail-address ">"))
 	       (enable-recursive-minibuffers t)
 	       (mail-address (read-string
-			      (format "What is your email address? (default %s) "
-				      default-mail)
+			      (format
+			       "What is your email address? (default %s) "
+			       default-mail)
 			      nil nil default-mail)))
 	  (process-send-string proc mail-address)
 	  (process-send-string proc "\n"))

  (eval-after-load "gnus-sum"
    '(progn
       (define-key gnus-summary-mime-map "V" 'gnus-article-view-darcs-patch)
       (define-key gnus-summary-article-map "V" 'gnus-summary-view-darcs-patch))))

(provide 'darcsum)
;;; darcsum.el ends here

					 'darcsum-file (car file)
					 'darcsum-change change)))
	     ((symbolp item)
	      ;; 'addfile 'newfile 'rmfile 'binary or '-replace
	      ;; xyzzy
	      )
	     ((> item 0)
