Mercurial > emacs

comparison lisp/paths.el @ 8146:a58ae7dfc8bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-spool-directory): Use /var/mail if it exists.
author Richard M. Stallman <rms@gnu.org>
date Tue, 05 Jul 1994 18:33:10 +0000
parents f7f20bbe4ca7
children 4d94983ab156
comparison
equal deleted inserted replaced
8145:d94fc60e4195 8146:a58ae7dfc8bd
89 "Name of user's primary mail file.") 89 "Name of user's primary mail file.")
90 90
91 (defconst rmail-spool-directory 91 (defconst rmail-spool-directory
92 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) 92 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
93 "/usr/spool/mail/") 93 "/usr/spool/mail/")
94 ;; SVR4 is said to use /var/mail, and make /usr/mail a link to that; 94 ;; SVR4 and recent BSD are said to use this.
95 ;; but since I'm not sure it's generally true, calling file-exists-p 95 ;; Rather than trying to know precisely which systems use it,
96 ;; prevents lossage if it isn't true. -- rms. 96 ;; let's assume this dir is never used for anything else.
97 ((and (string-match "^[^-]+-[^-]+-sysv4" system-configuration) 97 ((file-exists-p "/var/mail")
98 (file-exists-p "/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/") 98 "/var/mail/")
104 ((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))
105 "/usr/mail/") 100 "/usr/mail/")
106 ((eq system-type 'netbsd)
107 "/var/mail/")
108 (t "/usr/spool/mail/")) 101 (t "/usr/spool/mail/"))
109 "Name of directory used by system mailer for delivering new mail. 102 "Name of directory used by system mailer for delivering new mail.
110 Its name should end with a slash.") 103 Its name should end with a slash.")
111 104
112 (defconst sendmail-program 105 (defconst sendmail-program