diff --git a/src/members-print.scm b/src/members-print.scm
index 85d8fe9..bee75f3 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -141,11 +141,14 @@
 			    (list
 			     (list "DokuWiki"
 				   (let ((groups (brmember-sub-ref mr 'dokuwiki 'groups))
-					 (email (brmember-sub-ref mr 'dokuwiki 'email)))
+					 (email (brmember-sub-ref mr 'dokuwiki 'email))
+					 (memail (brmember-info mr 'mail #f)))
 				   (string-intersperse
 				    (list (format "Groups: ~A"
 						  groups)
-					  (format "Email: ~A"
+					  (format (if (equal? email memail)
+						      "Email: ~A"
+						      (ansi-string #:red "Email: ~A"))
 						  email))
 				    "\n")))))
 			(list (list (ansi-string #:red "DokuWiki")