diff --git a/hledger/Hledger/Cli/BalanceView.hs b/hledger/Hledger/Cli/BalanceView.hs
index 283da0741..161376391 100644
--- a/hledger/Hledger/Cli/BalanceView.hs
+++ b/hledger/Hledger/Cli/BalanceView.hs
@@ -168,16 +168,6 @@ balanceviewReport BalanceView{..} CliOpts{command_=cmd, reportopts_=ropts, rawop
         PeriodChange      -> "(Balance Changes)"
         CumulativeChange  -> "(Cumulative Ending Balances)"
         HistoricalBalance -> "(Historical Ending Balances)"
-    ropts' = treeIfNotPeriod $
-               ropts { balancetype_ = balancetype }
-    treeIfNotPeriod = case (balancetype, interval_ ropts) of
-        -- For --historical/--cumulative, we must use multiBalanceReport.
-        -- (This forces --no-elide.)
-        -- These settings format the output in a way that we can convert to
-        -- a normal balance report using singleBalanceReport.  See
-        -- Balance.hs for more information.
-      (HistoricalBalance, NoInterval) -> \o -> o { accountlistmode_ = ALTree }
-      (CumulativeChange , NoInterval) -> \o -> o { accountlistmode_ = ALTree }
-      _                               -> id
+    ropts' = ropts { balancetype_ = balancetype }
     merging (Table hLeft hTop dat) (Table hLeft' _ dat') =
         Table (T.Group DoubleLine [hLeft, hLeft']) hTop (dat ++ dat')