[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-demon.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-demon.el |
Date: |
Sat, 04 Sep 2004 09:48:18 -0400 |
Index: emacs/lisp/gnus/gnus-demon.el
diff -c emacs/lisp/gnus/gnus-demon.el:1.8 emacs/lisp/gnus/gnus-demon.el:1.9
*** emacs/lisp/gnus/gnus-demon.el:1.8 Mon Sep 1 15:45:24 2003
--- emacs/lisp/gnus/gnus-demon.el Sat Sep 4 13:13:43 2004
***************
*** 1,5 ****
;;; gnus-demon.el --- daemonic Gnus behaviour
! ;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
;; Keywords: news
--- 1,7 ----
;;; gnus-demon.el --- daemonic Gnus behaviour
!
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2003
! ;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
;; Keywords: news
***************
*** 148,179 ****
(if (not (stringp time))
time
(let* ((now (current-time))
! ;; obtain NOW as discrete components -- make a vector for speed
! (nowParts (decode-time now))
! ;; obtain THEN as discrete components
! (thenParts (parse-time-string time))
! (thenHour (elt thenParts 2))
! (thenMin (elt thenParts 1))
! ;; convert time as elements into number of seconds since EPOCH.
! (then (encode-time 0
! thenMin
! thenHour
! ;; If THEN is earlier than NOW, make it
! ;; same time tomorrow. Doc for encode-time
! ;; says that this is OK.
! (+ (elt nowParts 3)
! (if (or (< thenHour (elt nowParts 2))
! (and (= thenHour (elt nowParts 2))
! (<= thenMin (elt nowParts 1))))
! 1 0))
! (elt nowParts 4)
! (elt nowParts 5)
! (elt nowParts 6)
! (elt nowParts 7)
! (elt nowParts 8)))
! ;; calculate number of seconds between NOW and THEN
! (diff (+ (* 65536 (- (car then) (car now)))
! (- (cadr then) (cadr now)))))
;; return number of timesteps in the number of seconds
(round (/ diff gnus-demon-timestep)))))
--- 150,181 ----
(if (not (stringp time))
time
(let* ((now (current-time))
! ;; obtain NOW as discrete components -- make a vector for speed
! (nowParts (decode-time now))
! ;; obtain THEN as discrete components
! (thenParts (parse-time-string time))
! (thenHour (elt thenParts 2))
! (thenMin (elt thenParts 1))
! ;; convert time as elements into number of seconds since EPOCH.
! (then (encode-time 0
! thenMin
! thenHour
! ;; If THEN is earlier than NOW, make it
! ;; same time tomorrow. Doc for encode-time
! ;; says that this is OK.
! (+ (elt nowParts 3)
! (if (or (< thenHour (elt nowParts 2))
! (and (= thenHour (elt nowParts 2))
! (<= thenMin (elt nowParts 1))))
! 1 0))
! (elt nowParts 4)
! (elt nowParts 5)
! (elt nowParts 6)
! (elt nowParts 7)
! (elt nowParts 8)))
! ;; calculate number of seconds between NOW and THEN
! (diff (+ (* 65536 (- (car then) (car now)))
! (- (cadr then) (cadr now)))))
;; return number of timesteps in the number of seconds
(round (/ diff gnus-demon-timestep)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-demon.el,
Miles Bader <=