From 8837853eb5a7543c761a440031a48452e10f7074 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 21:30:38 +0000 Subject: [PATCH] (define-mail-alias): Check MAILRC envvar. --- lisp/mail/mailalias.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 4be47f49f0d..ca788757cf1 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) -- 2.39.5