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

This commit is contained in:
Richard M. Stallman 1994-10-21 21:30:38 +00:00
parent a27897c9ac
commit 8837853eb5

View file

@ -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)