Function: gnus-seconds-today

gnus-seconds-today is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-seconds-today)

Documentation

Return the integer number of seconds passed today.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
;; By Frank Schmitt <ich@Frank-Schmitt.net>.  Enables age-dependent
;; date representations.  (e.g. just the time if it's from today, the
;; day of the week if it's within the last 7 days and the full date if
;; it's older)

(defun gnus-seconds-today ()
  "Return the integer number of seconds passed today."
  (let ((now (decode-time nil nil 'integer)))
    (+ (decoded-time-second now)
       (* (decoded-time-minute now) 60)
       (* (decoded-time-hour now) 3600))))