diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index df77eff1c..6c41d10d7 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5964,7 +5964,9 @@ specification like [h]h:mm." ((eq org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled) ;; Set pre-warning to no earlier than SCHEDULED. - (min (- deadline scheduled) org-deadline-warning-days)) + (min (- deadline + (org-agenda--timestamp-to-absolute scheduled)) + org-deadline-warning-days)) ;; Set pre-warning to deadline. (t 0)))) (wdays (if suppress-prewarning @@ -6127,7 +6129,9 @@ scheduled items with an hour specification like [h]h:mm." ((eq org-agenda-skip-scheduled-delay-if-deadline 'post-deadline) ;; Set delay to no later than DEADLINE. - (min (- schedule deadline) org-scheduled-delay-days)) + (min (- schedule + (org-agenda--timestamp-to-absolute deadline)) + org-scheduled-delay-days)) (t 0)))) (ddays (cond