diff --git a/lib/Text/Markdown.pm b/lib/Text/Markdown.pm
index 1c1f93e..c62401d 100644
--- a/lib/Text/Markdown.pm
+++ b/lib/Text/Markdown.pm
@@ -1463,6 +1463,8 @@ sub _DoAutoLinks {
     return $text;
 }
 
+my $SRAND_CALLED = 0;
+
 sub _EncodeEmailAddress {
 #
 #   Input: an email address, e.g. "foo@example.com"
@@ -1481,6 +1483,11 @@ sub _EncodeEmailAddress {
 
     my ($self, $addr) = @_;
 
+    if ($ENV{SOURCE_DATE_EPOCH} and not $SRAND_CALLED) {
+        srand $ENV{SOURCE_DATE_EPOCH};
+        $SRAND_CALLED = 1;
+    }
+
     my @encode = (
         sub { '&#' .                 ord(shift)   . ';' },
         sub { '&#x' . sprintf( "%X", ord(shift) ) . ';' },