diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-05 18:33:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-05 18:33:10 +0000 |
| commit | 13d90229c610506dcedff53ebbe76da522ff4835 (patch) | |
| tree | e8e968baf07cc90778a9a36684d804895dfda932 /lisp/paths.el | |
| parent | 6bd5233e973c60fef951e9bf9ac41987871e38aa (diff) | |
| download | emacs-13d90229c610506dcedff53ebbe76da522ff4835.tar.gz | |
(rmail-spool-directory): Use /var/mail if it exists.
Diffstat (limited to 'lisp/paths.el')
| -rw-r--r-- | lisp/paths.el | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/lisp/paths.el b/lisp/paths.el index 268bdc48ab0..9b63d59063d 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -91,20 +91,13 @@ Will use `gnus-startup-file'-SERVER instead if exists.") (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/") - ;; BSD386 is said to use /var/mail. - ((and (string-match "^[^-]+-[^-]+-bsd386" system-configuration) - (file-exists-p "/var/mail")) + ;; SVR4 and recent BSD are said to use this. + ;; Rather than trying to know precisely which systems use it, + ;; let's assume this dir is never used for anything else. + ((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) - "/var/mail/") (t "/usr/spool/mail/")) "Name of directory used by system mailer for delivering new mail. Its name should end with a slash.") |