mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(rmail-spool-directory): Use /var/mail if it exists.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-05 18:33:10 +00:00
parent e4fbad4b57
commit 7a41a2e2b8
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/paths.el
View File

@ -91,20 +91,13 @@ Will use `gnus-startup-file'-SERVER instead if exists.")
(defconst rmail-spool-directory
(cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
"/usr/spool/mail/")
;; SVR4 is said to use /var/mail, and make /usr/mail a link to that;
;; but since I'm not sure it's generally true, calling file-exists-p
;; prevents lossage if it isn't true. -- rms.
((and (string-match "^[^-]+-[^-]+-sysv4" system-configuration)
(file-exists-p "/var/mail"))
"/var/mail/")
;; BSD386 is said to use /var/mail.
((and (string-match "^[^-]+-[^-]+-bsd386" system-configuration)
(file-exists-p "/var/mail"))
;; SVR4 and recent BSD are said to use this.
;; Rather than trying to know precisely which systems use it,
;; let's assume this dir is never used for anything else.
((file-exists-p "/var/mail")
"/var/mail/")
((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
"/usr/mail/")
((eq system-type 'netbsd)
"/var/mail/")
(t "/usr/spool/mail/"))
"Name of directory used by system mailer for delivering new mail.
Its name should end with a slash.")