From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 May 1994 20:36:53 +0000 (+0000)
Subject: (rmail-spool-directory): Maybe use /var/mail.
X-Git-Tag: emacs-19.34~8219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4233819a6e4637e08065d6ab8a57a3aa95fa1075;p=emacs.git

(rmail-spool-directory): Maybe use /var/mail.
---

diff --git a/lisp/paths.el b/lisp/paths.el
index f4748f96921..3cf574352ba 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -90,6 +90,12 @@ 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/")
 	((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
 	 "/usr/mail/")
 	((eq system-type 'netbsd)