diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index ba740ef1c05..75a1fc16ac7 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -763,7 +763,7 @@ to run it every morning at 1am."
          (set-buffer fancy-diary-buffer)
          (buffer-substring (point-min) (point-max)))
      "No entries found"))
-  (funcall (get mail-user-agent 'sendfunc)))
+  (call-interactively (get mail-user-agent 'sendfunc)))
 
 
 (defun diary-name-pattern (string-array &optional fullname)