(diary-mail-entries): Use call-interactively.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index ba740ef1c05aaebbcd936955fdd3b5fe2dd0795f..75a1fc16ac71ec53b80b99eab242164791d5cafd 100644 (file)
--- 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)