diff options
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 27 |
1 files changed, 25 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 14bf9d90a16..ad364edeea1 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -100,8 +100,6 @@ its character representation and its display representation.") "The current header display style choice, one of 'normal (selected headers) or 'full (all headers).") -;; rmail-spool-directory and rmail-file-name are defined in paths.el. - (defgroup rmail nil "Mail reader for Emacs." :group 'mail) @@ -143,6 +141,31 @@ its character representation and its display representation.") :prefix "rmail-edit-" :group 'rmail) +;;;###autoload +(defcustom rmail-file-name (purecopy "~/RMAIL") + "Name of user's primary mail file." + :type 'string + :group 'rmail + :version "21.1") + +;;;###autoload +(defcustom rmail-spool-directory + (purecopy + (cond ((file-exists-p "/var/mail") + ;; SVR4 and recent BSD are said to use this. + ;; Rather than trying to know precisely which systems use it, + ;; let's assume this dir is never used for anything else. + "/var/mail/") + ;; Many GNU/Linux systems use this name. + ((file-exists-p "/var/spool/mail") "/var/spool/mail/") + ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/") + (t "/usr/spool/mail/"))) + "Name of directory used by system mailer for delivering new mail. +Its name should end with a slash." + :initialize 'custom-initialize-delay + :type 'directory + :group 'rmail) + (defcustom rmail-movemail-program nil "If non-nil, the file name of the `movemail' program." :group 'rmail-retrieve |