diff --git a/EmailPatch.hs b/EmailPatch.hs
--- a/EmailPatch.hs
+++ b/EmailPatch.hs
@@ -59,6 +59,7 @@
   changes <- invokeDarcs ["changes"
                       ,"--match=hash " ++ patchHash pd
                       ,"--repo=" ++ patchRepo pd
+                      ,"-a"
                       ,"-s"]
   menc <- asks confCharset
   met <- asks confEmailTemplate
diff --git a/darcs-monitor.cabal b/darcs-monitor.cabal
--- a/darcs-monitor.cabal
+++ b/darcs-monitor.cabal
@@ -1,6 +1,6 @@
 Cabal-Version: >= 1.2
 Name: darcs-monitor
-Version: 0.4.0
+Version: 0.4.1
 License: GPL
 License-File: GPL.txt
 Copyright:
diff --git a/darcs-monitor.hs b/darcs-monitor.hs
--- a/darcs-monitor.hs
+++ b/darcs-monitor.hs
@@ -192,7 +192,7 @@
                                 _   -> repo' ++ "/"
   liftIO $ createDirectoryIfMissing True (repo++dir)
   seenPatches <- readSeenPatches repo
-  xml <- invokeDarcs ["changes", "--reverse", "--repo="++repo,"--xml-output"]
+  xml <- invokeDarcs ["changes", "--reverse", "--repo="++repo,"--xml-output","-a"]
   let Document _ _ (Elem "changelog" _ content) _ = xmlParse repo xml 
   let patches = filter (\c -> case c of CElem _e -> True ; _ -> False) content
   spl <- forM patches $ \ (CElem (Elem "patch" attrs content_)) ->