(appt-check): Restore usage of appt-issue-message deleted in previous

change.
(top-level): Activate package when loaded (needed for backwards
compatibility).

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 8a92ef614ce..f6e33aeefe0 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -341,7 +341,7 @@ displayed in a window:
           ;; get the first time off of the list
           ;; and calculate the number of minutes until the appointment.
 
-          (if appt-time-msg-list
+          (if (and appt-issue-message appt-time-msg-list)
               (let ((appt-comp-time (car (car (car appt-time-msg-list)))))
                 (setq min-to-app (- appt-comp-time cur-comp-time))
 
@@ -659,6 +659,10 @@ ARG is positive, otherwise off."
       (appt-check t))))
 
 
+;; This is needed for backwards compatibility. Feh.
+(appt-activate 1)
+
+
 (provide 'appt)
 
 ;;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347