diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-21 21:30:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-21 21:30:38 +0000 |
| commit | 8837853eb5a7543c761a440031a48452e10f7074 (patch) | |
| tree | 731eed95c09a0fb0bd2d86f14a5ac54982c0f0b7 /lisp | |
| parent | a27897c9ac82a390879c4203746b2ec06062106c (diff) | |
| download | emacs-8837853eb5a7543c761a440031a48452e10f7074.tar.gz emacs-8837853eb5a7543c761a440031a48452e10f7074.tar.bz2 emacs-8837853eb5a7543c761a440031a48452e10f7074.zip | |
(define-mail-alias): Check MAILRC envvar.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/mailalias.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |