Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 47163:88f34e3227e6
(diary-mail-entries): Don't overwrite user's value
of diary-list-include-blanks, but generate message instead if
there are no entries.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 30 Aug 2002 18:21:28 +0000 |
| parents | e020f18c490a |
| children | afefa409b756 |
comparison
equal
deleted
inserted
replaced
| 47162:8d806d3990ed | 47163:88f34e3227e6 |
|---|---|
| 620 system. Alternatively, you can specify a cron entry: | 620 system. Alternatively, you can specify a cron entry: |
| 621 0 1 * * * diary-rem.sh | 621 0 1 * * * diary-rem.sh |
| 622 to run it every morning at 1am." | 622 to run it every morning at 1am." |
| 623 (interactive "P") | 623 (interactive "P") |
| 624 (let* ((diary-display-hook 'fancy-diary-display) | 624 (let* ((diary-display-hook 'fancy-diary-display) |
| 625 (diary-list-include-blanks t) | |
| 626 (text (progn (list-diary-entries (calendar-current-date) | 625 (text (progn (list-diary-entries (calendar-current-date) |
| 627 (if ndays ndays diary-mail-days)) | 626 (if ndays ndays diary-mail-days)) |
| 628 (set-buffer fancy-diary-buffer) | 627 (set-buffer fancy-diary-buffer) |
| 629 (buffer-substring (point-min) (point-max))))) | 628 (buffer-substring (point-min) (point-max))))) |
| 630 (compose-mail diary-mail-addr | 629 (compose-mail diary-mail-addr |
| 631 (concat "Diary entries generated " | 630 (if (string-equal text "") |
| 632 (calendar-date-string (calendar-current-date)))) | 631 "No entries found" |
| 632 (concat "Diary entries generated " | |
| 633 (calendar-date-string (calendar-current-date))))) | |
| 633 (insert text) | 634 (insert text) |
| 634 (funcall (get mail-user-agent 'sendfunc)))) | 635 (funcall (get mail-user-agent 'sendfunc)))) |
| 635 | 636 |
| 636 | 637 |
| 637 (defun diary-name-pattern (string-array &optional fullname) | 638 (defun diary-name-pattern (string-array &optional fullname) |