summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2004-01-20 22:52:11 +0000
committerGlenn Morris <rgm@gnu.org>2004-01-20 22:52:11 +0000
commit9fa0334c27652ebd66cb7e60a3020efab45f7503 (patch)
treed59da5323fa2b99f0b8f12c4cbb778466cf8ec7e
parent4e788be24a6c39c85365c9ed2f3aa7a461fba2c9 (diff)
downloademacs-9fa0334c27652ebd66cb7e60a3020efab45f7503.tar.gz
(appt-check): Restore usage of appt-issue-message deleted in previous
change. (top-level): Activate package when loaded (needed for backwards compatibility).
-rw-r--r--lisp/calendar/appt.el6
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