(sendmail-synch-aliases): Check MAILRC envvar.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 52a9abefe654cd50a8149a3072033a8dcd301595..4aeed5e8b9e2095defa9cebe7192fe897252ac97 100644 (file)
--- 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))))