Mercurial > emacs
comparison lisp/paths.el @ 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 | 53c6cc0ccd30 |
| children | d02006c4ac42 |
comparison
equal
deleted
inserted
replaced
| 7633:ba9345d99767 | 7634:6839ecdf2a1c |
|---|---|
| 88 "Name of user's primary mail file.") | 88 "Name of user's primary mail file.") |
| 89 | 89 |
| 90 (defconst rmail-spool-directory | 90 (defconst rmail-spool-directory |
| 91 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) | 91 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) |
| 92 "/usr/spool/mail/") | 92 "/usr/spool/mail/") |
| 93 ;; SVR4 is said to use /var/mail, and make /usr/mail a link to that; | |
| 94 ;; but since I'm not sure it's generally true, calling file-exists-p | |
| 95 ;; prevents lossage if it isn't true. -- rms. | |
| 96 ((and (string-match "^[^-]+-[^-]+-sysv4" system-configuration) | |
| 97 (file-exists-p "/var/mail")) | |
| 98 "/var/mail/") | |
| 93 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) | 99 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) |
| 94 "/usr/mail/") | 100 "/usr/mail/") |
| 95 ((eq system-type 'netbsd) | 101 ((eq system-type 'netbsd) |
| 96 "/var/mail/") | 102 "/var/mail/") |
| 97 (t "/usr/spool/mail/")) | 103 (t "/usr/spool/mail/")) |