From ff8e5528bd02f883ac39dc1f3b47b6f5a0269308 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 21:31:47 +0000 Subject: [PATCH] (sendmail-synch-aliases): Check MAILRC envvar. --- lisp/mail/sendmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 52a9abefe65..4aeed5e8b9e 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -179,7 +179,7 @@ actually occur.") "Normal hook run before sending mail, in Mail mode.") (defun sendmail-synch-aliases () - (let ((modtime (nth 5 (file-attributes "~/.mailrc")))) + (let ((modtime (nth 5 (file-attributes (or (getenv "MAILRC") "~/.mailrc"))))) (or (equal mail-alias-modtime modtime) (setq mail-alias-modtime modtime mail-aliases t)))) -- 2.39.5