[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-delay.el gnus-su...
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-delay.el gnus-su... |
Date: |
Wed, 02 Sep 2009 03:29:54 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/02 03:29:52
Modified files:
lisp/gnus : ChangeLog gnus-delay.el gnus-sum.el nnspool.el
Log message:
Use gnus-float-time rather than time-to-seconds.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.823&r2=1.824
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-delay.el?cvsroot=emacs&r1=1.16&r2=1.17
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-sum.el?cvsroot=emacs&r1=1.142&r2=1.143
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nnspool.el?cvsroot=emacs&r1=1.23&r2=1.24
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.823
retrieving revision 1.824
diff -u -b -r1.823 -r1.824
--- ChangeLog 2 Sep 2009 03:04:15 -0000 1.823
+++ ChangeLog 2 Sep 2009 03:29:49 -0000 1.824
@@ -1,5 +1,13 @@
2009-09-02 Glenn Morris <address@hidden>
+ * gnus-util.el (gnus-float-time): New function.
+ * gnus-delay.el (gnus-delay-article):
+ * gnus-sum.el (gnus-thread-latest-date):
+ * gnus-util.el (gnus-user-date): Use gnus-float-time.
+ * nnspool.el (nnspool-request-newgroups):
+ Use gnus-float-time rather than time-to-seconds.
+ * ecomplete.el (ecomplete-add-item): In Emacs, use float-time.
+
* gnus-art.el (gnus-signature-face, gnus-header-from-face)
(gnus-header-subject-face, gnus-header-newsgroups-face)
(gnus-header-name-face, gnus-header-content-face):
Index: gnus-delay.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-delay.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- gnus-delay.el 5 Jan 2009 03:21:56 -0000 1.16
+++ gnus-delay.el 2 Sep 2009 03:29:50 -0000 1.17
@@ -1,6 +1,7 @@
;;; gnus-delay.el --- Delayed posting of articles
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free
Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Kai Großjohann <address@hidden>
;; Keywords: mail, news, extensions
@@ -101,10 +102,10 @@
(aset deadline 1 minute)
(aset deadline 2 hour)
;; Convert to seconds.
- (setq deadline (time-to-seconds (apply 'encode-time
+ (setq deadline (gnus-float-time (apply 'encode-time
(append deadline nil))))
;; If this time has passed already, add a day.
- (when (< deadline (time-to-seconds (current-time)))
+ (when (< deadline (gnus-float-time (current-time)))
(setq deadline (+ 3600 deadline))) ;3600 secs/day
;; Convert seconds to date header.
(setq deadline (message-make-date
@@ -127,7 +128,7 @@
(t
(setq delay (* num 60))))
(setq deadline (message-make-date
- (seconds-to-time (+ (time-to-seconds (current-time))
+ (seconds-to-time (+ (gnus-float-time (current-time))
delay)))))
(t (error "Malformed delay `%s'" delay)))
(message-add-header (format "%s: %s" gnus-delay-header deadline)))
Index: gnus-sum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-sum.el,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -b -r1.142 -r1.143
--- gnus-sum.el 29 Aug 2009 03:03:23 -0000 1.142
+++ gnus-sum.el 2 Sep 2009 03:29:50 -0000 1.143
@@ -5002,7 +5002,7 @@
(lambda (header)
(setq previous-time
(condition-case ()
- (time-to-seconds (mail-header-parse-date
+ (gnus-float-time (mail-header-parse-date
(mail-header-date header)))
(error previous-time))))
(sort
Index: nnspool.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nnspool.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- nnspool.el 5 Jan 2009 03:22:16 -0000 1.23
+++ nnspool.el 2 Sep 2009 03:29:51 -0000 1.24
@@ -1,7 +1,8 @@
;;; nnspool.el --- spool access for GNU Emacs
;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software
Foundation, Inc.
+;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <address@hidden>
;; Lars Magne Ingebrigtsen <address@hidden>
@@ -288,7 +289,8 @@
(while (and (not (looking-at
"\\([^ ]+\\) +\\([0-9]+\\)[0-9][0-9][0-9] "))
(zerop (forward-line -1))))
- (let ((seconds (time-to-seconds (date-to-time date)))
+ ;; We require nnheader which requires gnus-util.
+ (let ((seconds (gnus-float-time (date-to-time date)))
groups)
;; Go through lines and add the latest groups to a list.
(while (and (looking-at "\\([^ ]+\\) +[0-9]+ ")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-delay.el gnus-su...,
Glenn Morris <=