Displaying a daily Org-mode agenda reminder in Emacs 2

parse-relative-time.el

(defun parse-relative-time (time-str)
  (destructuring-bind (sec min hour day month year dow dst zone)
      (parse-time-string time-str)
    (destructuring-bind (sec1 min1 hour1 day1 month1 year1 dow1 dst1 zone1)
	(decode-time)
      (encode-time (or sec sec1)
		   (or min min1)
		   (or hour hour1)
		   (or day day1)
		   (or month month1)
		   (or year year1)
		   (or zone zone1)))))