Commit 8837853e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a27897c9
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment