Mercurial > emacs

comparison lisp/paths.el @ 8138:f7f20bbe4ca7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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/"))