Add missing autload pieces needed for rmail-spool-directory's delayed init

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index ad364edeea1..cd2a961638e 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -149,6 +149,13 @@ its character representation and its display representation.")
   :version "21.1")
 
 ;;;###autoload
+(put 'rmail-spool-directory 'standard-value
+     '((cond ((file-exists-p "/var/mail") "/var/mail/")
+             ((file-exists-p "/var/spool/mail") "/var/spool/mail/")
+             ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/")
+             (t "/usr/spool/mail/"))))
+
+;;;###autoload
 (defcustom rmail-spool-directory
   (purecopy
   (cond ((file-exists-p "/var/mail")
@@ -166,6 +173,8 @@ Its name should end with a slash."
   :type 'directory
   :group 'rmail)
 
+;;;###autoload(custom-initialize-delay 'rmail-spool-directory nil)
+
 (defcustom rmail-movemail-program nil
   "If non-nil, the file name of the `movemail' program."
   :group 'rmail-retrieve