diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-22 20:36:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-22 20:36:53 +0000 |
| commit | 4233819a6e4637e08065d6ab8a57a3aa95fa1075 (patch) | |
| tree | ec46a52d89f3b4c9f8193088b56a1008a8807878 /lisp | |
| parent | 8a1bbe07a8148ac73f77fd47ad256bf55214f83b (diff) | |
| download | emacs-4233819a6e4637e08065d6ab8a57a3aa95fa1075.tar.gz | |
(rmail-spool-directory): Maybe use /var/mail.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/paths.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/paths.el b/lisp/paths.el index f4748f96921..3cf574352ba 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -90,6 +90,12 @@ 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/") ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) "/usr/mail/") ((eq system-type 'netbsd) |