Minor appt.el changes.

* lisp/calendar/appt.el (appt-add): Ensure reminders are enabled.
(appt-activate): Give status messages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af790a992935781dc54d9814566f694880db4014..21c50dbc54db4e588c45c4d47aaf98e910a326b9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-04  Glenn Morris  <rgm@gnu.org>
+
+       * calendar/appt.el (appt-add): Ensure reminders are enabled.
+       (appt-activate): Give status messages.
+
 2010-10-03  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * net/gnutls.el: Improve docs.  Remove starttls and ssl emulation.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 7667caad3362197853e7eceab97e6681e52bdb2b..43e8666bc31b07cd08c08ae513b537fbb299f7ce 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -446,6 +446,7 @@ sMinutes before the appointment to start warning: ")
   (and warntime
        (not (integerp warntime))
        (error "Argument WARNTIME must be an integer, or nil"))
+  (or appt-timer (appt-activate))
   (let ((time-msg (list (list (appt-convert-time time))
                         (concat time " " msg) t)))
     ;; It is presently non-sensical to have multiple warnings about
@@ -618,13 +619,16 @@ ARG is positive, otherwise off."
     (when appt-timer
       (cancel-timer appt-timer)
       (setq appt-timer nil))
-    (when appt-active
-      (diary-check-diary-file)
-      (add-hook 'write-file-functions 'appt-update-list)
-      (setq appt-timer (run-at-time t 60 'appt-check)
-            global-mode-string
-            (append global-mode-string '(appt-mode-string)))
-      (appt-check t))))
+    (if appt-active
+        (progn
+          (diary-check-diary-file)
+          (add-hook 'write-file-functions 'appt-update-list)
+          (setq appt-timer (run-at-time t 60 'appt-check)
+                global-mode-string
+                (append global-mode-string '(appt-mode-string)))
+          (appt-check t)
+          (message "Appointment reminders enabled"))
+      (message "Appointment reminders disabled"))))
 
 
 (provide 'appt)