Function: gnus-seconds-month
gnus-seconds-month is a byte-compiled function defined in
gnus-util.el.gz.
Signature
(gnus-seconds-month)
Documentation
Return the integer number of seconds passed this month.
Source Code
;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-seconds-month ()
"Return the integer number of seconds passed this month."
(let ((now (decode-time nil nil 'integer)))
(+ (decoded-time-second now)
(* (decoded-time-minute now) 60)
(* (decoded-time-hour now) 3600)
(* (- (decoded-time-day now) 1) 3600 24))))