mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(rmail-spool-directory): Try /var/spool/mail.

Browse Source 
(news-path): Use /var/spool/news as last resort.
This commit is contained in:
Karl Heuer 1995-12-21 18:01:03 +00:00
parent 69e01b8eb2
commit 7cf202bd65
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/paths.el
View File

@ -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/"))