Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 50908:8b374c6e565d
(diary-mail-entries): Use call-interactively.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 08 May 2003 19:52:47 +0000 |
| parents | 44fe653dccdb |
| children | 6732b4ce8c04 |
comparison
equal
deleted
inserted
replaced
| 50907:2dc63d02e041 | 50908:8b374c6e565d |
|---|---|
| 761 (if (get-buffer fancy-diary-buffer) | 761 (if (get-buffer fancy-diary-buffer) |
| 762 (save-excursion | 762 (save-excursion |
| 763 (set-buffer fancy-diary-buffer) | 763 (set-buffer fancy-diary-buffer) |
| 764 (buffer-substring (point-min) (point-max))) | 764 (buffer-substring (point-min) (point-max))) |
| 765 "No entries found")) | 765 "No entries found")) |
| 766 (funcall (get mail-user-agent 'sendfunc))) | 766 (call-interactively (get mail-user-agent 'sendfunc))) |
| 767 | 767 |
| 768 | 768 |
| 769 (defun diary-name-pattern (string-array &optional fullname) | 769 (defun diary-name-pattern (string-array &optional fullname) |
| 770 "Convert a STRING-ARRAY, an array of strings to a pattern. | 770 "Convert a STRING-ARRAY, an array of strings to a pattern. |
| 771 The pattern will match any of the strings, either entirely or abbreviated | 771 The pattern will match any of the strings, either entirely or abbreviated |