/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by sds, Tue Aug 6 15:11:26 2002 UTC revision 1.57 by rms, Fri Aug 30 18:21:28 2002 UTC
# Line 622  system.  Alternatively, you can specify Line 622  system.  Alternatively, you can specify
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    

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26