# bind (utc-time seconds date)
  timezone-time-zone-from-absolute(730981 1758)
  # bind (local second minute hour time day month year year date timezone local date)
  timezone-fix-time("Sat, 11 May 2002 00:29:18 -0500" nil nil)
  # bind (timezone local date)
  timezone-make-date-arpa-standard("Sat, 11 May 2002 00:29:18 -0500")
  byte-code("..." [date apply encode-time parse-time-string timezone-make-date-arpa-standard] 5)
  # (condition-case ... . ((error (error "Invalid date: %s" date))))
  # bind (date)
  date-to-time("Sat, 11 May 2002 00:29:18 -0500")
  byte-code("..." [ls date type dtime tz time date-to-time local current-time-zone format "Date: %s %s%02d%02d" current-time-string 0 "+" "-" abs 3600 60 ut "Date: " parse-time-string apply encode-time 65536 65535 " UT" original string-match "\n+$" user fboundp lambda byte-code-function-p format-time-string iso8601 "%Y%m%dT%H%M%S" "%s%02d%02d" lapsed current-time subtract-time float nil "X-Sent: Unknown" "X-Sent: Now" "X-Sent: " mapconcat #<compiled-function (unit) "...(52)" [prev unit sec num ffloor 0 "" ", " int-to-string floor " " symbol-name 1 "s" t] 6> "" " ago" " in the future" english decode-time "Date: the " number-to-string 3 10 (11 12 13) "th" 1 "st" 2 "nd" "rd" " of " form real-time ms digit gnus-article-time-format real-sec e tm now sec num prev article-time-units gnus-english-month-names 4 " " 5 " at " "%02d" ":"] 14)
  # (condition-case ... . ((error (format "Date: %s (from Oort)" date))))
  # bind (type date)
  article-make-date-line("Sat, 11 May 2002 00:29:18 -0500" lapsed)
  # bind (buffer-read-only)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (eface bface pos inhibit-point-motion-hooks date date-regexp tdate-regexp header header highlight type)
  article-date-ut(lapsed t)
  # bind (highlight)
  article-date-lapsed(t)
  # bind (w)
  #<compiled-function (w) "...(24)" [major-mode w window-buffer gnus-article-mode re-search-forward "^X-Sent:" nil t article-date-lapsed] 4>(#<window on "*Article personal.general*" 0x26eed>)
  # bind (walk-windows-current walk-windows-start which-devices which-frames minibuf function)
  walk-windows(#<compiled-function (w) "...(24)" [major-mode w window-buffer gnus-article-mode re-search-forward "^X-Sent:" nil t article-date-lapsed] 4> nil visible)
  byte-code("..." [walk-windows #<compiled-function (w) "...(24)" [major-mode w window-buffer gnus-article-mode re-search-forward "^X-Sent:" nil t article-date-lapsed] 4> nil visible] 4)
  # (condition-case ... . ((error)))
  # (unwind-protect ...)
  # bind (deactivate-mark)
  article-update-date-lapsed()
  (lambda nil (article-update-date-lapsed))()
  # bind (time-elapsed itimers itimer next-wakeup last-event-time this-command inhibit-quit quit-flag current-itimer)
  # (unwind-protect ...)
  # bind (match-data)
  byte-code("..." [this-command inhibit-quit quit-flag match-data itimer current-itimer match-data ((store-match-data match-data)) nil itimer-uses-arguments apply itimer-function itimer-function-arguments last-event-time next-wakeup itimers time-elapsed] 5)
  # (condition-case ... . ((error (byte-code "ÂÃÄ	!!#" ... 5)) (quit (byte-code "ÁÂ!\"" ... 4))))
  # (unwind-protect ...)
  # bind (itimers itimer next-wakeup idle-time last-event-time recorded-run-time inhibit-quit time-elapsed)
  itimer-run-expired-timers(1.009792)
  # bind (sleep elapsed now itimer-inside-driver inhibit-quit ignored)
  itimer-timer-driver(nil)
  # (condition-case ... . error)
  # (catch top-level ...)