Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 24760:079175ba0db7
(diary-mail-entries): Use fancy-diary-buffer.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 22 May 1999 19:53:39 +0000 |
parents | cca41b0e7ae7 |
children | acad42cf5361 |
comparison
equal
deleted
inserted
replaced
24759:a03aa24489bd | 24760:079175ba0db7 |
---|---|
628 (diary-display-hook 'fancy-diary-display)) | 628 (diary-display-hook 'fancy-diary-display)) |
629 (if (not current-prefix-arg) | 629 (if (not current-prefix-arg) |
630 (setq ndays diary-mail-days)) | 630 (setq ndays diary-mail-days)) |
631 (calendar) | 631 (calendar) |
632 (view-diary-entries ndays) | 632 (view-diary-entries ndays) |
633 (set-buffer "*Fancy Diary Entries*") | 633 (set-buffer fancy-diary-buffer) |
634 (setq text (buffer-substring (point-min) (point-max))) | 634 (setq text (buffer-substring (point-min) (point-max))) |
635 | 635 |
636 ;; Now send text as a mail message. | 636 ;; Now send text as a mail message. |
637 (mail) | 637 (mail) |
638 (mail-to) | 638 (mail-to) |