summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1995-12-21 18:01:03 +0000
committerKarl Heuer <kwzh@gnu.org>1995-12-21 18:01:03 +0000
commit7cf202bd653a13fb04081e963c3165bd7fb895d8 (patch)
tree0cc1d90d451404f998b1c39794888f6cd4d66819 /lisp
parent69e01b8eb28d4e72ee5d9e1d4ef83376540f0998 (diff)
downloademacs-7cf202bd653a13fb04081e963c3165bd7fb895d8.tar.gz
(rmail-spool-directory): Try /var/spool/mail.
(news-path): Use /var/spool/news as last resort.
Diffstat (limited to 'lisp')
-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.
Therefore, the directory of Info files that come with Emacs
normally should come last (so that local files override standard ones).")
-(defvar news-path "/usr/spool/news/"
+(defvar news-path
+ (if (file-exists-p "/usr/spool/news/")
+ "/usr/spool/news/"
+ "/var/spool/news/")
"The root directory below which all news files are stored.")
(defvar news-inews-program
@@ -98,6 +101,9 @@ Will use `gnus-startup-file'-SERVER instead if exists.")
;; let's assume this dir is never used for anything else.
((file-exists-p "/var/mail")
"/var/mail/")
+ ;; Many GNU/Linux systems use this name.
+ ((file-exists-p "/var/spool/mail")
+ "/var/spool/mail")
((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
"/usr/mail/")
(t "/usr/spool/mail/"))