# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769639013 0
# Node ID 6839ecdf2a1cc50e7969237512f0b25a9a4e6513
# Parent  ba9345d99767be86c97ff8f134e0a2596e03e1f1
(rmail-spool-directory): Maybe use /var/mail.

diff -r ba9345d99767 -r 6839ecdf2a1c lisp/paths.el
--- a/lisp/paths.el	Sun May 22 20:18:28 1994 +0000
+++ b/lisp/paths.el	Sun May 22 20:36:53 1994 +0000
@@ -90,6 +90,12 @@
 (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)