Commit 07a66b97 authored by Glenn Morris's avatar Glenn Morris
Browse files

(diary-remind): Discard any mark portion from diary-entry. Reported

by Andrew Kemp <ajwk@pell.uklinux.net>.
parent 04c9dde8
......@@ -1625,8 +1625,10 @@ marked on the calendar."
(or (not marking-diary-entries) marking))
(let ((date (calendar-gregorian-from-absolute
(+ (calendar-absolute-from-gregorian date) days))))
(if (setq diary-entry (eval sexp))
(mapconcat 'eval diary-remind-message ""))))
(when (setq diary-entry (eval sexp)) ; re-evaluate with adjusted date
;; Discard any mark portion from diary-anniversary, etc.
(if (consp diary-entry) (setq diary-entry (cdr diary-entry)))
(mapconcat 'eval diary-remind-message ""))))
;; Diary entry may apply to one of a list of days before date
((and (listp days) days)
(or (diary-remind sexp (car days) marking)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment