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)
(setq mail-aliases nil)
(if (file-exists-p "~/.mailrc")
(if (file-exists-p (or (getenv "MAILRC") "~/.mailrc"))
;; 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