[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108352: Add missing autload pieces n
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108352: Add missing autload pieces needed for rmail-spool-directory's delayed init |
Date: |
Thu, 24 May 2012 00:20:34 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 108352
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2012-05-24 00:20:34 -0700
message:
Add missing autload pieces needed for rmail-spool-directory's delayed init
modified:
lisp/mail/rmail.el
=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el 2012-05-24 06:53:08 +0000
+++ b/lisp/mail/rmail.el 2012-05-24 07:20:34 +0000
@@ -149,6 +149,13 @@
: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 @@
: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
- [Emacs-diffs] /srv/bzr/emacs/trunk r108352: Add missing autload pieces needed for rmail-spool-directory's delayed init,
Glenn Morris <=