aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/time.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/time.el b/lisp/time.el
index 92494e5419f..08e13353ca3 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -46,16 +46,17 @@ default, which is system-dependent, and is the same as used by Rmail."
46 46
47(defcustom display-time-mail-directory nil 47(defcustom display-time-mail-directory nil
48 "*Name of mail inbox directory, for indicating existence of new mail. 48 "*Name of mail inbox directory, for indicating existence of new mail.
49Non-nil and not a string means don't check for mail. 49Any nonempty regular file in the directory is regarded as newly arrived mail.
50When nil, no checking for mail in directory is done." 50If nil, do not check a directory for arriving mail."
51 :type '(choice (const :tag "None" nil) 51 :type '(choice (const :tag "None" nil)
52 (directory :format "%v")) 52 (directory :format "%v"))
53 :group 'display-time) 53 :group 'display-time)
54 54
55(defcustom display-time-mail-function nil 55(defcustom display-time-mail-function nil
56 "*Function to call, for indicating existence of new mail. 56 "*Function to call, for indicating existence of new mail.
57nil means use the default method of checking `display-time-mail-file' 57If nil, that means use the default method: check that the file
58or files in `display-time-mail-directory'." 58specified by `display-time-mail-file' is nonempty or that the
59directory `display-time-mail-directory' contains nonempty files."
59 :type '(choice (const :tag "Default" nil) 60 :type '(choice (const :tag "Default" nil)
60 (function)) 61 (function))
61 :group 'display-time) 62 :group 'display-time)