diff options
author | Gerd Moellmann <[email protected]> | 2001-01-24 11:48:19 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2001-01-24 11:48:19 +0000 |
commit | d56aaa640eba871e373c19abbba90efedc45d005 (patch) | |
tree | 14f36c50a0eb43bd9282031761e01bd94afd6058 /lisp/calendar/diary-lib.el | |
parent | 7c22dc9d3eaad7e68b9465b3b51fdbd4e1fc7f0a (diff) |
(diary-float): Fix case of MONTH
being a list of numbers.
(diary-mail-entries): Rewritten.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
-rw-r--r-- | lisp/calendar/diary-lib.el | 57 |
1 files changed, 26 insertions, 31 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 7290280298..c03b92a73d 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -633,29 +633,20 @@ You may have to tweak the syntax of the `at' command to suit your system. Alternatively, you can specify a cron entry: 0 1 * * * diary-rem.sh to run it every morning at 1am." - (interactive "p") - (let ((text nil) - ;; Use the fancy-diary-display as it doesn't hide rest of - ;; diary file with ^M characters. It also looks nicer. - (diary-display-hook 'fancy-diary-display)) - (if (not current-prefix-arg) - (setq ndays diary-mail-days)) - (calendar) - (view-diary-entries ndays) - (set-buffer fancy-diary-buffer) - (setq text (buffer-substring (point-min) (point-max))) - - ;; Now send text as a mail message. + (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))))) (mail) - (mail-to) - (insert diary-mail-addr) - (mail-subject) - (insert "Diary entries generated ") - (insert (format-time-string "%a %d %b %Y" (current-time))) - (mail-text) - (insert text) - (mail-send-and-exit nil) - (exit-calendar))) + (mail-to) (insert diary-mail-addr) + (mail-subject) (insert "Diary entries generated " + (calendar-date-string (calendar-current-date))) + (mail-text) (insert text) + (mail-send-and-exit nil))) + (defun diary-name-pattern (string-array &optional fullname) "Convert an STRING-ARRAY, an array of strings to a pattern. @@ -1295,9 +1286,10 @@ An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY." (d2 (extract-calendar-day last)) (y2 (extract-calendar-year last))) (if (or (and (= m1 m2) ; only possible base dates in one month - (or (and (listp month) (memq m1 month)) - (eq month t) - (= m1 month)) + (or (eq month t) + (if (listp month) + (memq m1 month) + (= m1 month))) (let ((d (or day (if (> n 0) 1 (calendar-last-day-of-month m1 y1))))) @@ -1308,22 +1300,25 @@ An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY." (or ;; m1, d1 works as a base date (and - (or (and (listp month) (memq m1 month)) - (eq month t) - (= m1 month)) + (or (eq month t) + (if (listp month) + (memq m1 month) + (= m1 month))) (<= d1 (or day (if (> n 0) 1 (calendar-last-day-of-month m1 y1))))) ;; m2, d2 works as a base date - (and (or (and (listp month) (memq m2 month)) - (eq month t) - (= m2 month)) + (and (or (eq month t) + (if (listp month) + (memq m2 month) + (= m2 month))) (<= (or day (if (> n 0) 1 (calendar-last-day-of-month m2 y2))) d2))))) entry)))) + (defun diary-anniversary (month day year) "Anniversary diary entry. Entry applies if date is the anniversary of MONTH, DAY, YEAR if |