From 1003b1025bdd86974c183f13fdbb0c500c484c75 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Fri, 26 Feb 2016 16:58:44 +0100 Subject: [PATCH] org-agenda.el (org-agenda-to-appt): Ignore DONE tasks --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 86ba2f942..876ea44f9 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -10207,7 +10207,7 @@ to override `appt-message-warning-time'." (wrn (get-text-property 1 'warntime x))) ;; FIXME: Shall we remove text-properties for the appt text? ;; (setq evt (set-text-properties 0 (length evt) nil evt)) - (when (and ok tod) + (when (and ok tod (not (string-match "\\`DONE\\|CANCELLED" evt))) (setq tod (concat "00" (number-to-string tod)) tod (when (string-match "\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)\\'" tod)