# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1074639131 0
# Node ID 761988ba350d0d10ed1067e17222e8f56f3e50bb
# Parent  4464cbe0f70176a6b5fe543fbbd29277ecd883f5
(appt-check): Restore usage of appt-issue-message deleted in previous
change.
(top-level): Activate package when loaded (needed for backwards
compatibility).

diff -r 4464cbe0f701 -r 761988ba350d lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Tue Jan 20 22:51:38 2004 +0000
+++ b/lisp/calendar/appt.el	Tue Jan 20 22:52:11 2004 +0000
@@ -341,7 +341,7 @@
 	  ;; 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 @@
       (appt-check t))))
 
 
+;; This is needed for backwards compatibility. Feh.
+(appt-activate 1)
+
+
 (provide 'appt)
 
 ;;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347