diff --git a/hledger-lib/Hledger/Data/RawOptions.hs b/hledger-lib/Hledger/Data/RawOptions.hs
index 9f2e8fcc7..d85ae92d7 100644
--- a/hledger-lib/Hledger/Data/RawOptions.hs
+++ b/hledger-lib/Hledger/Data/RawOptions.hs
@@ -11,6 +11,7 @@ module Hledger.Data.RawOptions (
   RawOpts,
   setopt,
   setboolopt,
+  unsetboolopt,
   appendopts,
   inRawOpts,
   boolopt,
@@ -49,6 +50,9 @@ setopt name val = overRawOpts (++ [(name, val)])
 setboolopt :: String -> RawOpts -> RawOpts
 setboolopt name = overRawOpts (++ [(name,"")])
 
+unsetboolopt :: String -> RawOpts -> RawOpts
+unsetboolopt name = overRawOpts (filter ((/=name).fst))
+
 appendopts :: [(String,String)] -> RawOpts -> RawOpts
 appendopts new = overRawOpts (++new)