# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 904231071 0
# Node ID 176e4901705de32c506724aab91ce7af3aedf9d4
# Parent  a8bedd394d5565040665ce3d47ea0460853ed344
(appt-check): Clear appt-mode-string if we don't put something in it.

diff -r a8bedd394d55 -r 176e4901705d lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Thu Aug 27 15:16:25 1998 +0000
+++ b/lisp/calendar/appt.el	Thu Aug 27 15:17:51 1998 +0000
@@ -286,6 +286,8 @@
 		  (let ((diary-display-hook 'appt-make-list))
 		    (diary))))
 
+	    (setq appt-mode-string nil)
+
 	    ;; If there are entries in the list, and the
 	    ;; user wants a message issued
 	    ;; get the first time off of the list