emacs-diffs
[Top][All Lists]
Advanced

[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)))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]