aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/paths.el8
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.
48Therefore, the directory of Info files that come with Emacs 48Therefore, the directory of Info files that come with Emacs
49normally should come last (so that local files override standard ones).") 49normally 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/"))