Mercurial > emacs
changeset 7634:6839ecdf2a1c
(rmail-spool-directory): Maybe use /var/mail.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 May 1994 20:36:53 +0000 |
| parents | ba9345d99767 |
| children | b5acd78a49e3 |
| files | lisp/paths.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/paths.el Sun May 22 20:18:28 1994 +0000 +++ b/lisp/paths.el Sun May 22 20:36:53 1994 +0000 @@ -90,6 +90,12 @@ (defconst rmail-spool-directory (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) "/usr/spool/mail/") + ;; SVR4 is said to use /var/mail, and make /usr/mail a link to that; + ;; but since I'm not sure it's generally true, calling file-exists-p + ;; prevents lossage if it isn't true. -- rms. + ((and (string-match "^[^-]+-[^-]+-sysv4" system-configuration) + (file-exists-p "/var/mail")) + "/var/mail/") ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) "/usr/mail/") ((eq system-type 'netbsd)