[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el

[Richard M. Stallman]

Index: emacs/lisp/calendar/diary-lib.el
diff -c emacs/lisp/calendar/diary-lib.el:1.56 
emacs/lisp/calendar/diary-lib.el:1.57
*** emacs/lisp/calendar/diary-lib.el:1.56       Tue Aug  6 11:11:26 2002
--- emacs/lisp/calendar/diary-lib.el    Fri Aug 30 14:21:28 2002
***************
*** 622,635 ****
  to run it every morning at 1am."
    (interactive "P")
    (let* ((diary-display-hook 'fancy-diary-display)
-          (diary-list-include-blanks t)
           (text (progn (list-diary-entries (calendar-current-date)
                                            (if ndays ndays diary-mail-days))
                        (set-buffer fancy-diary-buffer)
                        (buffer-substring (point-min) (point-max)))))
      (compose-mail diary-mail-addr
!                   (concat "Diary entries generated "
!                           (calendar-date-string (calendar-current-date))))
      (insert text)
      (funcall (get mail-user-agent 'sendfunc))))
  
--- 622,636 ----
  to run it every morning at 1am."
    (interactive "P")
    (let* ((diary-display-hook 'fancy-diary-display)
           (text (progn (list-diary-entries (calendar-current-date)
                                            (if ndays ndays diary-mail-days))
                        (set-buffer fancy-diary-buffer)
                        (buffer-substring (point-min) (point-max)))))
      (compose-mail diary-mail-addr
!                 (if (string-equal text "")
!                     "No entries found"
!                   (concat "Diary entries generated "
!                           (calendar-date-string (calendar-current-date)))))
      (insert text)
      (funcall (get mail-user-agent 'sendfunc))))