From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Oct 1994 21:30:38 +0000 (+0000)
Subject: (define-mail-alias): Check MAILRC envvar.
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/8837853eb5a7543c761a440031a48452e10f7074

(define-mail-alias): Check MAILRC envvar.
---

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 4be47f49f0..ca788757cf 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -170,7 +170,7 @@ An address can contain spaces if it is quoted with double-quotes."
   (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)