diff --git a/Markdown.pl b/Markdown.pl
index 62e0dfe..0325049 100755
--- a/Markdown.pl
+++ b/Markdown.pl
@@ -1338,7 +1338,7 @@ sub _EncodeEmailAddress {
 
 	my $addr = shift;
 
-	srand;
+	srand($ENV{SOURCE_DATE_EPOCH} || time);
 	my @encode = (
 		sub { '&#' .                 ord(shift)   . ';' },
 		sub { '&#x' . sprintf( "%X", ord(shift) ) . ';' },