# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782775038 0
# Node ID 2c7688eb344ec2c3f5b89d9b0b4ec910e5a57b46
# Parent  5d1e70b22a939897962d2c7816d614d1c4d28173
(define-mail-alias): Check MAILRC envvar.

diff -r 5d1e70b22a93 -r 2c7688eb344e lisp/mail/mailalias.el
--- a/lisp/mail/mailalias.el	Fri Oct 21 20:31:43 1994 +0000
+++ b/lisp/mail/mailalias.el	Fri Oct 21 21:30:38 1994 +0000
@@ -170,7 +170,7 @@
   (if (eq mail-aliases t)
       (progn
 	(setq mail-aliases nil)
-	(if (file-exists-p "~/.mailrc")
+	(if (file-exists-p (or (getenv "MAILRC") "~/.mailrc"))
 	    (build-mail-aliases))))
   ;; strip garbage from front and end
   (if (string-match "\\`[ \t\n,]+" definition)