From 24f388e1a7ea4a6affad232035526191e5df961d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 17 Oct 2018 17:39:42 -0700
Subject: [PATCH] man/ms writers: use `\[at]` for escaped `@`.

---
 src/Text/Pandoc/Writers/Groff.hs | 2 +-
 test/writer.ms                   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Groff.hs b/src/Text/Pandoc/Writers/Groff.hs
index aac76060e..cb7252726 100644
--- a/src/Text/Pandoc/Writers/Groff.hs
+++ b/src/Text/Pandoc/Writers/Groff.hs
@@ -97,7 +97,7 @@ groffEscapes = Map.fromList
               , ('\x2026', "\\&...")
               , ('~', "\\[ti]")
               , ('^', "\\[ha]")
-              , ('@', "\\@")
+              , ('@', "\\[at]")
               , ('\\', "\\\\")
               ]
 
diff --git a/test/writer.ms b/test/writer.ms
index 8480f5520..c81127721 100644
--- a/test/writer.ms
+++ b/test/writer.ms
@@ -925,7 +925,7 @@ It should.
 .LP
 An e-mail address: \c
 .pdfhref W -D "mailto:nobody%40nowhere.net" -A "\c" \
- -- "nobody\@nowhere.net"
+ -- "nobody\[at]nowhere.net"
 \&
 .RS
 .LP