(mail-extr-all-top-level-domains): Update names.

[gnu-emacs] / lisp / mail / mspools.el

diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el
index 0c8d923f0067d3709a7b9804fd2295d7d3672b76..f7527fa186b1eccb7d6b3a1fa4591e55592d7eba 100644 (file)
--- a/lisp/mail/mspools.el
+++ b/lisp/mail/mspools.el
@@ -1,9 +1,9 @@
-;;; mspools.el --- show mail spools waiting to be read.
+;;; mspools.el --- show mail spools waiting to be read
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
-;; Author: Stephen Eglen <stephen@anc.ed.ac.uk>
-;; Maintainer: Stephen Eglen <stephen@anc.ed.ac.uk>
+;; Author: Stephen Eglen <stephen@gnu.org>
+;; Maintainer: Stephen Eglen <stephen@gnu.org>
 ;; Created: 22 Jan 1997
 ;; Keywords: mail
 ;; location: http://www.anc.ed.ac.uk/~stephen/emacs/
@@ -142,11 +142,15 @@ Defaults to `vm-folder-directory' if bound else to ~/MAIL/."
   :type 'directory
   :group 'mspools)
 
-(defcustom mspools-vm-system-mail (getenv "MAIL")
+(defcustom mspools-vm-system-mail (or (getenv "MAIL")
+                                     (concat rmail-spool-directory
+                                             (user-login-name)))
   "*Spool file for main mailbox.  Only used by VM.
 This needs to be set to your primary mail spool - mspools will not run
 without it.  By default this will be set to the environment variable
-$MAIL.  Otherwise set it to something like /usr/spool/mail/login-name."
+$MAIL.  Otherwise it will use `rmail-spool-directory' to guess where
+your primary spool is.  If this fails, set it to something like
+/usr/spool/mail/login-name."
   :type 'file
   :group 'mspools)
 
@@ -179,7 +183,7 @@ $MAIL.  Otherwise set it to something like /usr/spool/mail/login-name."
 
 (defun mspools-set-vm-spool-files ()
   "Set value of `vm-spool-files'.  Only needed for VM."
-  (if (null mspools-vm-system-mail)
+  (if (not (file-readable-p mspools-vm-system-mail))
       (error "Need to set mspools-vm-system-mail to the spool for primary inbox"))
   (if (null mspools-folder-directory)
       (error "Set `mspools-folder-directory' to where the spool files are"))
@@ -399,5 +403,5 @@ nil."
       nil)))
 
 (provide 'mspools)
-;;; mspools.el ends here
 
+;;; mspools.el ends here