diff options
| -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/")) |