diff options
| author | Karl Heuer | 1995-12-21 18:01:03 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-12-21 18:01:03 +0000 |
| commit | 7cf202bd653a13fb04081e963c3165bd7fb895d8 (patch) | |
| tree | 0cc1d90d451404f998b1c39794888f6cd4d66819 | |
| parent | 69e01b8eb28d4e72ee5d9e1d4ef83376540f0998 (diff) | |
| download | emacs-7cf202bd653a13fb04081e963c3165bd7fb895d8.tar.gz emacs-7cf202bd653a13fb04081e963c3165bd7fb895d8.zip | |
(rmail-spool-directory): Try /var/spool/mail.
(news-path): Use /var/spool/news as last resort.
| -rw-r--r-- | lisp/paths.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/paths.el b/lisp/paths.el index 990e4a0ae70..f4516d37a61 100644 --- a/lisp/paths.el +++ b/lisp/paths.el | |||
| @@ -48,7 +48,10 @@ They are searched in the order they are given in this list. | |||
| 48 | Therefore, the directory of Info files that come with Emacs | 48 | Therefore, the directory of Info files that come with Emacs |
| 49 | normally should come last (so that local files override standard ones).") | 49 | normally should come last (so that local files override standard ones).") |
| 50 | 50 | ||
| 51 | (defvar news-path "/usr/spool/news/" | 51 | (defvar news-path |
| 52 | (if (file-exists-p "/usr/spool/news/") | ||
| 53 | "/usr/spool/news/" | ||
| 54 | "/var/spool/news/") | ||
| 52 | "The root directory below which all news files are stored.") | 55 | "The root directory below which all news files are stored.") |
| 53 | 56 | ||
| 54 | (defvar news-inews-program | 57 | (defvar news-inews-program |
| @@ -98,6 +101,9 @@ Will use `gnus-startup-file'-SERVER instead if exists.") | |||
| 98 | ;; let's assume this dir is never used for anything else. | 101 | ;; let's assume this dir is never used for anything else. |
| 99 | ((file-exists-p "/var/mail") | 102 | ((file-exists-p "/var/mail") |
| 100 | "/var/mail/") | 103 | "/var/mail/") |
| 104 | ;; Many GNU/Linux systems use this name. | ||
| 105 | ((file-exists-p "/var/spool/mail") | ||
| 106 | "/var/spool/mail") | ||
| 101 | ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) | 107 | ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix)) |
| 102 | "/usr/mail/") | 108 | "/usr/mail/") |
| 103 | (t "/usr/spool/mail/")) | 109 | (t "/usr/spool/mail/")) |