diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-05-24 00:20:34 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-05-24 00:20:34 -0700 |
| commit | 98e15937bea2f34f8020fec43a8ddb8197fef3db (patch) | |
| tree | 65edfe6a7beee6280da12891501c84df3ccd2ef8 /lisp/mail | |
| parent | f8815e4c9b3006c2dd4727d8c602c9afc7c65a8c (diff) | |
| download | emacs-98e15937bea2f34f8020fec43a8ddb8197fef3db.tar.gz | |
Add missing autload pieces needed for rmail-spool-directory's delayed init
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 9 |
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 |