# HG changeset patch
# User Stephen Eglen <stephen@gnu.org>
# Date 899113899 0
# Node ID 704aa38757819ea65a904ba9a7af513c80668397
# Parent  030c40f7d2027cd53af6f0c010fa1d2234929a4a
diary-mail-entries calls exit-calendar when finished.

diff -r 030c40f7d202 -r 704aa3875781 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Sun Jun 28 22:52:49 1998 +0000
+++ b/lisp/calendar/diary-lib.el	Mon Jun 29 09:51:39 1998 +0000
@@ -642,7 +642,8 @@
     (insert (format-time-string "%a %d %b %Y" (current-time)))
     (mail-text)
     (insert text)
-    (mail-send-and-exit nil)))
+    (mail-send-and-exit nil)
+    (exit-calendar)))
 
 (defun diary-name-pattern (string-array &optional fullname)
   "Convert an STRING-ARRAY, an array of strings to a pattern.