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

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

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 8a92ef614ced398dfe5157e4ba830386fb22a563..f6e33aeefe017bb1b7fad6507e676043323f7a24 100644 (file)
--- 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