622 |
to run it every morning at 1am." |
to run it every morning at 1am." |
623 |
(interactive "P") |
(interactive "P") |
624 |
(let* ((diary-display-hook 'fancy-diary-display) |
(let* ((diary-display-hook 'fancy-diary-display) |
|
(diary-list-include-blanks t) |
|
625 |
(text (progn (list-diary-entries (calendar-current-date) |
(text (progn (list-diary-entries (calendar-current-date) |
626 |
(if ndays ndays diary-mail-days)) |
(if ndays ndays diary-mail-days)) |
627 |
(set-buffer fancy-diary-buffer) |
(set-buffer fancy-diary-buffer) |
628 |
(buffer-substring (point-min) (point-max))))) |
(buffer-substring (point-min) (point-max))))) |
629 |
(compose-mail diary-mail-addr |
(compose-mail diary-mail-addr |
630 |
(concat "Diary entries generated " |
(if (string-equal text "") |
631 |
(calendar-date-string (calendar-current-date)))) |
"No entries found" |
632 |
|
(concat "Diary entries generated " |
633 |
|
(calendar-date-string (calendar-current-date))))) |
634 |
(insert text) |
(insert text) |
635 |
(funcall (get mail-user-agent 'sendfunc)))) |
(funcall (get mail-user-agent 'sendfunc)))) |
636 |
|
|