Function: gnus-seconds-year

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

Signature

(gnus-seconds-year)

Documentation

Return the integer number of seconds passed this year.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-seconds-year ()
  "Return the integer number of seconds passed this year."
  (let* ((current (current-time))
	 (now (decode-time current nil 'integer))
	 (days (format-time-string "%j" current)))
    (+ (decoded-time-second now)
       (* (decoded-time-minute now) 60)
       (* (decoded-time-hour now) 3600)
       (* (- (string-to-number days) 1) 3600 24))))