diff options
| author | Dave Love | 2000-10-26 17:14:08 +0000 |
|---|---|---|
| committer | Dave Love | 2000-10-26 17:14:08 +0000 |
| commit | a211301f9640daf02dccbf959c6bb8b9dfef438b (patch) | |
| tree | 9582492ecf745039614d71a6fabf569b4e5d4f04 | |
| parent | 4f926b3e43fdd96feb861f5fafd5cd9920ffa873 (diff) | |
| download | emacs-a211301f9640daf02dccbf959c6bb8b9dfef438b.tar.gz emacs-a211301f9640daf02dccbf959c6bb8b9dfef438b.zip | |
2000-10-26 Dirk Meyer <dischi@tzi.de>
* gnus-demon.el (gnus-demon-time-to-step): theHour was set to
seconds instead of hour.
| -rw-r--r-- | lisp/gnus/gnus-demon.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el index 78d7286d34c..f73b6774dfe 100644 --- a/lisp/gnus/gnus-demon.el +++ b/lisp/gnus/gnus-demon.el | |||
| @@ -2,6 +2,7 @@ | |||
| 2 | ;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 4 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 5 | ;; Maintainer: bugs@gnus.org | ||
| 5 | ;; Keywords: news | 6 | ;; Keywords: news |
| 6 | 7 | ||
| 7 | ;; This file is part of GNU Emacs. | 8 | ;; This file is part of GNU Emacs. |
| @@ -34,7 +35,7 @@ | |||
| 34 | (require 'nnmail) | 35 | (require 'nnmail) |
| 35 | (require 'gnus-util) | 36 | (require 'gnus-util) |
| 36 | (eval-and-compile | 37 | (eval-and-compile |
| 37 | (if (string-match "XEmacs" (emacs-version)) | 38 | (if (featurep 'xemacs) |
| 38 | (require 'itimer) | 39 | (require 'itimer) |
| 39 | (require 'timer))) | 40 | (require 'timer))) |
| 40 | 41 | ||
| @@ -152,7 +153,7 @@ time Emacs has been idle for IDLE `gnus-demon-timestep's." | |||
| 152 | (nowParts (decode-time now)) | 153 | (nowParts (decode-time now)) |
| 153 | ;; obtain THEN as discrete components | 154 | ;; obtain THEN as discrete components |
| 154 | (thenParts (parse-time-string time)) | 155 | (thenParts (parse-time-string time)) |
| 155 | (thenHour (elt thenParts 0)) | 156 | (thenHour (elt thenParts 2)) |
| 156 | (thenMin (elt thenParts 1)) | 157 | (thenMin (elt thenParts 1)) |
| 157 | ;; convert time as elements into number of seconds since EPOCH. | 158 | ;; convert time as elements into number of seconds since EPOCH. |
| 158 | (then (encode-time 0 | 159 | (then (encode-time 0 |