Mercurial > emacs
comparison lisp/paths.el @ 8138:f7f20bbe4ca7
(rmail-spool-directory): Use /var/mail for bsd386.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 05 Jul 1994 04:06:00 +0000 |
parents | d02006c4ac42 |
children | a58ae7dfc8bd |
comparison
equal
deleted
inserted
replaced
8137:a0746604e843 | 8138:f7f20bbe4ca7 |
---|---|
95 ;; but since I'm not sure it's generally true, calling file-exists-p | 95 ;; but since I'm not sure it's generally true, calling file-exists-p |
96 ;; prevents lossage if it isn't true. -- rms. | 96 ;; prevents lossage if it isn't true. -- rms. |
97 ((and (string-match "^[^-]+-[^-]+-sysv4" system-configuration) | 97 ((and (string-match "^[^-]+-[^-]+-sysv4" system-configuration) |
98 (file-exists-p "/var/mail")) | 98 (file-exists-p "/var/mail")) |
99 "/var/mail/") | 99 "/var/mail/") |
100 ;; BSD386 is said to use /var/mail. | |
101 ((and (string-match "^[^-]+-[^-]+-bsd386" system-configuration) | |
102 (file-exists-p "/var/mail")) | |
103 "/var/mail/") | |
100 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) | 104 ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) |
101 "/usr/mail/") | 105 "/usr/mail/") |
102 ((eq system-type 'netbsd) | 106 ((eq system-type 'netbsd) |
103 "/var/mail/") | 107 "/var/mail/") |
104 (t "/usr/spool/mail/")) | 108 (t "/usr/spool/mail/")) |